$name="Tom"; print "$name\n" if $name =~ s/T/M/g; # Substitute every T with M print "What is Tom's last name? "; print "You got it!\n" if <STDIN> =~ /Jordan/;