How to match any of the strings below.

Match any:

#!/usr/bin/perl
while (<DATA>){
    chomp;
    if ($. == 1) {
        print "'$_' matched\n";
    }
}
[download]

Match all:

#!/usr/bin/perl
while (<DATA>){
    chomp;
    if (1) {
        print "'$_' matched\n";
    }
}
[download]

You'll probably have to be more specific. Like by saying what you want to not match.

How can I match all the typos

Start by making a list of all the typos?

You might also be interested in finding the distance between the string being tested against a reference string. That's the name of insertions, changes and deletions needed to turn one of the strings into the other. The lower the distance, the more similar they are.