# Remove extraneous characters, make it one big long string to use substr position on it
$genome =~ tr/0-9 \t\f\n\r//d;