my $_ = "Time to work";
s/work/play/;
print $_;