my $f = 2;
print qr/$f/,"\n"; # (?-xism:2)
print qr'$f',"\n"; # (?-xism:$f)