Here in Italy we are minutes ago from changing our currency to Euro. So I thought it would be interesting to find a mnemonic to remember how many oldItalian Lira is worth an Euro.
This is what I came up with: my first little obfu.
#!/usr/bin/perl
sub E{$%%2?$---:$;;++$%.($--$%)};$-=1E1,$_=(join'',E,reverse(E,E))/1E2
+,print;