Re: Can you make this code shorter and/or quicker as well?

Select or download this

$ cat pm_1076056_in.fasta
>gi|321257144|ref|XP_003193485.1| flap ...
...
MGIKGLTQ
TIRMVDNG
CKQ

Select or download this

$ cat oneline.pl 
use strict;
...
}

print "\n";

Select or download this

$ perl oneline.pl pm_1076056_in.fasta > pm_1076056_out.fasta

Select or download this

$ cat pm_1076056_out.fasta
>gi|321257144|ref|XP_003193485.1| flap ...
MGIKGLTGRTIRMVDHECK
>gi|321473340|gb|EFX84308.1| hypothetical ...
MGIKGLTQTIRMVDNGCKQ

Select Code to Download