my ($one, $two) = split( /(\d+)\s+/, $line, 2);

##</code><code>##

my ($one, $two) = $line =~ m[(\d+)\s+(.*)$];