my $pat  = 'a';
my $repl = 'b';

my $re = qr/$pat/;

$str =~ s/$re/$repl/    # Performs a substitution.

$str =~ s/$pat/$repl/   # No need to compile in advance.