s ss\sgi;sgi;y ygsyajy if m msgi;m ;y ji;jphj;print

##</code><code>##

s//sgi;/sgi; /y/gs/aj/ if m/sgi;; y/i;/ph/; print
##</code><code>##

$_ =~ s//sgi;/sgi;    # $_ is now 'sgi;'
if($_ =~ /sgi;/){
  $_ =~ tr/gs/aj;  # 'jai;'
}
tr/i;/ph/;         # 'japh'
print $_;          # Voila!