while (<DATA>)
{
   if (my ($sample, $number) = $_ =~ /^>.*?(\d+).*?(\d+)\s*$/)
   {
      print '>ID'.$sample," $number\n"; 
   }
   else
   {
      print;
   }
}