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

##</code><code>##

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