#!/usr/bin/perl
$cog = " %a3x+5o3*e4x2e4lx*+\nke4!";
$_ = '($_ = $cog) =~ my $a[4%5 +2*!3x/$scrunjaphmt + $] ];';

s[[];
m[]];
;cog;
eval;

print;