# Remove extraneous characters, make it one big long string to use substr position on it
$genome =~ s/[\d\r\n\s]+//g;