#!/usr/bin/perl -w
#Clinton Pierce
#note: Requires 5.6.0 or better

'% * % % * % %<>
               * % ~ * % % * % * * % *      *
       * % % * *   % * % *<> * % ~   % % % * %
     *  * * % * % % % % * % % % % % % * % % * %
     % * % % ^ * % % % % *[] % % * * % * * % %  %
      % * %   % % % % % * * % * * @ *   @ % * % %
    % ^ % * % * % * * % % * %  <> % % % % * % %() %
  % % * * * % % * % % * * % * * * * % * * % % * * *
   %   * * * % % * % % *[]<> % % % % * % * * * % % *<>
 % * *  % % % * * % * * * \ * %\ * * *   %/ \ # % * *
  % % % *\ * /\ * *// %  %\ <>\ // % %/ % \// % * %
    * * *\ \|| \ \/ / % %// \ \ *\ /<> %//  %// % %<>
   * % * %\  \  |   | ||// % || //  \// % // * * * %
   %{} %  * ----\   \ | /   %||//   /  ---/ / * % % *
     % *  *\ ____\   \| |    /  /  /   /----/ * %
            \ ----\     |   /   //    /
                   \     \ /        /'
  =~ m/(.*)/s;
$_ = $1;

s![-\\|_/\s]!!g;

%e = (
  '%', 0, '^', 132918, '~' => 18054,
  '@'  => 19630,
  '*'  => 0b01,
  '#'  => 13099,
  '[]' => 4278,
  '<>' => 2307,
  '{}' => 9814,
  '()', 2076
);

for $a (keys %e)
{
	$e{$a} = sprintf "%b", $e{$a};
}

$y = qq{(} . join ('|', map "\Q$_\E", keys %e) . qq{)};

s/$y/$e{$1}/gex;

print pack "B*", $_;