#!usr/bin/perl use warnings; use strict; my $string = "this is a test"; $_ = "hello, abc"; print "$string\n"; print "$_\n\n"; $string =~ tr/a-z/0123456789.,';)(*&^%#@!/; tr/a-z/0123456789.,';)(*&^%#@!/; print "$string\n"; print "$_\n";