The code perl -ne "print if /^>/" test.fasta works just quite quickly.

I am reading this file from the same folder that the program is in... While not wanting to resort to a regex to extract the sequences and their header information I believe this is going to be my only way through!