Perl : Regular expressions, modifier,substitution,transliteration

#Use of regular expressions #in perl for searching,#substitution and #transliteration.

my $_ = “Kedar ! Kedar! Mandar! Mandar! MJK! KJK!” ;
print “\nOriginal: “,$_;

if ($_=~m/(Kedar\!\ Mandar\!)/)
{ print “\nYou found Kedar! Mandar!”;}

$_== s/Kedar/Mandar/g;
print “\nAfter substituing Kedar with Mandar: “,$_;

$_== tr/Mandar/Jayant/;
print “\nAfter transliterating Mandar with Jayant: “,$_;

Tags: PERL, regex, regular expressions, searching, susbstitution, transliteration