(my $dum) = reverse $str =~/abc\s(\d+)/gs;
print "dum is $dum\n";
1 while $str =~/abc\s(\d+)/gs;
print "dum is $1\n";