#!/usr/bin/env perl -l

use strict;
use warnings;

my $line7 = '
...
                     /db_xref="GI:2735715"
                     /translation="MLSFVDTRTLLLLAVTLCLATCQSLQEETVRKGPAGDRGPRGER
                     GPPGPPGRDGEDGPTGPPGPPGPPGPPGLGGNFAAQYDGKGVGLGPGPMGLMGPRGPP

                     YASQNITYHCKNSIAYMDEETGNLKKAVILQGSNDVELVAEGNSRFTYTVLVDGCSKK
                     TNEWGKTIIEYKTNKPSRLPFLDIAPLDIGGADHEFFVDIGPVCFK"
     exon            2432..2501
...
';

my $re = qr{/translation="([^"]+)"};

my ($extract) = $line7 =~ $re;

$extract =~ s/\s+//g;

print $extract;