perl -ne 'print grep /^>/, $_' sample* [download]
In reply to Re: Make this simpler? by rustic in thread Make this simpler? by faozhi