$DNA = <STDIN>;
chomp $DNA;

unless(open(DNAFILE, $DNA)){
                     print "File not found\n\n";
}

@DNA = <DNAFILE>;

$DNA = join('',@DNA);
$DNA =~ s/\s//g;