my $r = "Time to work";
s/work/play/;
print $r;
#end of script 1

#script 2
$_ = "Time to work";
s/work/play/;
print $_