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