Making all weird regexp-delimiters to /, you get:s ss\sgi;sgi;y ygsyajy if m msgi;m ;y ji;jphj;print
Adding some additional clarification, you get:s//sgi;/sgi; /y/gs/aj/ if m/sgi;; y/i;/ph/; print
$_ =~ s//sgi;/sgi; # $_ is now 'sgi;' if($_ =~ /sgi;/){ $_ =~ tr/gs/aj; # 'jai;' } tr/i;/ph/; # 'japh' print $_; # Voila!
In reply to Random keyboard input. Almost. by phubuh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |