{
    open (FH, "<ciona_fasta_two") or die $!;
    local ($/, $_) = (\500);
    while (<FH>) {
        my ($first, $last) = (substr($_,0,1), substr($_,-1,1));
        # do other stuff
    }
    close FH or die $!;
}