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