Illegal CueCat code.

#! /usr/bin/perl -n 

printf “%s %s %sn”, 

map { 

   tr/a-zA-Z0-9+-/ -_/; 

   $_ = unpack ‘u’, chr(32 + length()*3/4) . $_; 

   s/   $_ ^= “C” x length; 

} /.([^.]+)/g;