- or download this
s ss\sgi;sgi;y ygsyajy if m msgi;m ;y ji;jphj;print
- or download this
s//sgi;/sgi; /y/gs/aj/ if m/sgi;; y/i;/ph/; print
- or download this
$_ =~ s//sgi;/sgi; # $_ is now 'sgi;'
if($_ =~ /sgi;/){
...
}
tr/i;/ph/; # 'japh'
print $_; # Voila!