Regular Expression Perl


            #!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";