TIMTOWTDI

 #! /usr/bin/perl

$str = <<HERE ;
abc 10
abc 11
abc 12
abc 13
abc 14
HERE


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

print "dum is $dum\n" ;
[download]