$str = "Hello world\n";
$str =~ s/o/print "Got an o!\n"/eg;
print $str;