Max_FASTA

#!/usr/bin/perl -w

$/ = '>';
$max = 0;

while ( $in = <STDIN> )
  {
    if ( $in =~ /.*?\|pdb\|(.*?)\|.*?\n([^>]*)/ )
      {
        $code = $1;
        $seq = $2;
        $seq =~ s/\n//g;
        if ( length( $seq ) > $max )
          {
            $maxcode = $code;
            $max = length( $seq );
          }

      }

  }

print "Max length was $max for $maxcode\n";

exit();