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}'/;