in reply to V basic question about eq
if ($short1 =~ /\Q$short2\E/)
and escape the apostrophies with \Q
Using \Q is a good idea in any case, but apostrophes aren't regular expression metacharacters.
-sauoq "My two cents aren't worth a dime.";