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.