while(<>)
{
  if($_=~/^> ([\d\.\-]+)/)
  {
     $part_to_attach=$1;
  }
}