Jeste: proc nepracuje if ( eval { '$text =~ '.$re } ) { print "MATCH\n" } else { print "NO\n" } ? -- JP