#!/usr/bin/perl
use warnings;
while (defined($line = <>))  {
  chomp( $line );
  if ($line =~ /^>(\S+)\s*(.*)/ )  {
    $id = $1;
    $description = $2;

    print "id = $id\n";
    print "description = $description\n";

  }
}