Help for this page
use strict; use warnings; ... my $str = ";123;1;Stand_method;'SMRxsxtxmx1234x1234x12x1231.'"; 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}'/;
ok