Select Code to Download

#!/usr/bin/perl

...
1 2 4 5 7 10
1 3 4 6 7 8 9

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/