$line  =~ /\s+([0-9\,\t\s]+)/ 
 $page  = $1;
 $line  =~ /(.*)$page/;
 $rest  = $1;