#!/usr/bin/perl -s Sf=Sd?-1 1,SD=pack('C*',33 86),Sp=shift; $p=--y/a-z/A-Z/,SU='SD=--s/(.*)US/US1/, SD=-s/U(.)/S1U/;',(SV ...