Select Code to Download

print ">>$1<<\n" if  $line =~ /^[a-z-]+(\d.*)$/;

$line =~ /^[a-z-]+(\d.*)$/ and print ">>$1<<\n" ;