#!/usr/bin/perl
use warnings;
use strict;
my $filename = 'T7.fa';
open(DNA, $filename);
my $genome;
{ local $/; $genome = <DNA>; }
close DNA;
$genome =~ s/\x0D\x0A//g;
print "$genome\n";