Help for this page
VIagra V.i.a.gra ... V'l'a'g'r'a Viagr.a vit&agra
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/