(my $dum) = $str =~/abc\s(\d+)/g ;

print "dum is $1\n" ;