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