use strict;
use warnings;
BEGIN {
    my $win_file # memory file simulates windows file.
    = ">symbB.v1.2.017277.t1|scaffold1325.1|size176917|3\r\n"

    . "acggaccgcggcatttgccaatttgcgcgt"
    . "cgtcgggggtcgccatgatgtttcgcttgg"
    . "caggcttttttgctttggcactgctggtcg"
    . "cgggaaagcc\r\n"

    . "caagggtggcaaaggtgcaaaaggagaaca"
    . "agaccccttctctgagcttagccgcctcgc"
    . "agacaatttgaaagatgctaaagaacagcc"
    . "ggagaaggcc\r\n"

    . "aagaatgctctgaacatgatggatccagaa"
    . "agtttaggcgattctatggccaacatgatg"
    . "gtgatggcaatggataaggaccaggatggt"
    . "gtgttgtcag\r\n"
    ;
    $ARGV[0] = \do{$win_file};
}

open( my $input, '<:crlf', $ARGV[0] )
    or die( "Could not open input file $ARGV[0].\n" );

my $seq;
while ( my $line = <$input> ) {
    chomp($line);
    unless ( $line =~ m/>/ ) {
        $line = uc($line);
        $seq .= $line;
    }
}
print "Length of \$seq is ", length($seq), " characters\n";