$x = "I like dogs.";
$y = $x =~ s/dogs/cats/r;
print "$x $y\n"; # prints "I like dogs. I like cats."

##</code><code>##

Bareword found where operator expected at r.pl line 2, near "s/dogs/cats/r"
syntax error at r.pl line 2, near "s/dogs/cats/r"