How to make substitutions in strings using PERL

In PERL you use a pattern match to find string and then it will replace it. to make a substitution in a string use this function.

s/pattern/replace/

$cow = "the cow smells bad";
$cow =~ s/bad/good/;
print $cow;

result: the cow smells good

From HowTo Wiki, a Wikia wiki.