$line = $_;
$line=~m%(\d+).*%;

##</code><code>##

($line) = /(\d+)/  or next;