my $s = '...';
my $r = '...';
s/$s/$r/