search and change

$_ = "I love my prety cat.\n";
print;
print "But when i lose my job.\n";
s/love/eat/;
print;

Выод:
I love my pretty cat.
But when i lose my job.
I eat my prety cat.