my $pat = 'a';

my $re = qr/$pat/;

$str =~ m/$re/    # Performs a match.
$str =~ /$re/     # Same
$str =~ $re       # Same 

$str =~ m/$pat/   # No need to compile in advance.
$str =~ /$pat/    # Same
$str =~ $pat      # Same