Help for this page
# Remove extraneous characters, make it one big long string to use sub +str position on it $genome =~ s/[\d\r\n\s]+//g;
# Remove extraneous characters, make it one big long string to use sub +str position on it $genome =~ tr/0-9 \t\f\n\r//d;