BOL

#Extract a #sequence from #multi-fasta file: $ perl -ne 'if(/^>(\S+)/){$c=grep{/^$1$/}qw(id1 id2)}print if $c' fasta.file