#!/usr/local/bin/perl -w
$myString="This is my string";
print "My string is >$myString<.\n";
if ($myString =~s/str.ng/text/)
{
   print "We replaced a word.\n";
}
print "My string is now >$myString<.\n";
