#!/usr/bin/perl
@_=unpack("C*",'0:&+t9Wb/tbqvjbu?ut8M8bu');for(
@_){if(substr($_,-3)>substr($_,-2)){
@_;if(substr($_,-2)>substr($_,2)&&
@_){$_-=90;}else{$_=sprintf('%02d',substr($_,2),
@_);}}}
@_=split'',(join'',
@_);unshift
@_,pop
@_;$_=join'',
@_;while(s/^(\d{2})//&&
@_){print chr($1);}
[download]

Finally got my ass in gear and tried a bit of the ol' obfuscated.

Hope it takes you as long to work out as it did for me to code it :)

cLive ;-)