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