if ( "abbreviation" =~ m/^\Q$str/ ) { #...