#The s operator substitutes data that match a pattern with replacement data. #$variable =~ s/pattern/substitution/; #The s operator returns the number of substitutions made or 0 if none occurred. #!/usr/bin/perl -w $p = "Jack, Software Engineer"; $p =~ s/Software Engineer/Tester/; print "New title: $p.\n";