in reply to Use of uninitialized value in regexp compilation

That snippet of code contains errors. The following snippet of code works as expected. Perhaps you could modify it to show your problem?

use strict; use warnings; my $str = ";123;1;Stand_method;'SMRxsxtxmx1234x1234x12x123­1.'"; print "ok" if defined $str && $str =~ /;(\d{1,3});\d{1,3};Stand_method +;'SMRxsxtxmx(\d\d\d\d)x(\d\d\d\d)x(\d\d)x(\d\d\d­\d).{0,10}'/;

Prints:

ok

DWIM is Perl's answer to Gödel