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


##</code><code>##

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