Look at the BioPerl package, (in particular Bio::SeqIO and Bio::Seq).

Bio::SeqIO provides a method for opening a FASTA file and Bio::Seq provides methods to access the particular info you're after.

Chris

Update: I just now realized that doesn't solve the problem of getting the random lines you want.  :-(