Or, to make things slightly simpler:

if (substr($word, 2, length($match)) eq $match) {
    print "Gotta match\n";
} 
else {
    print "No match\n";
}
[download]

That way $match can be any length you want.