I find it nice, but I want to learn more from your advices!#!/usr/bin/perl -w use strict; $^=@_=split//,$_="\nrekcaH lreP rehtonA tsuJ";$_=&{sub{%_=map{++$/=>$_ }split'',pop;\%_}}($_);_:$/='!@_';$/=~s^.{3}^%s^;$^&&goto$'.sprintf('' .'_',printf$/,${$_}{$^--});
In reply to a japh attempt by ant9000
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |