perl -e "s++120101108065+;eval reverse q$%fd572774%qq,&*H&qq kcap tnirp$ $_ &&= join '',map{chr} (reverse /(\d{3})(\d{3})(\d{3})(\d{3})/) and print;"