# slurp in file into a string
$/=''; $DNA = <FILE>; 
# remove \n at end
chomp($DNA);