#! /usr/bin/perl -w
use strict;
$_='sub justify{
$_   =  __;s:if::g;
s:y: :;$_;}sub the {$_=__."r
";s=^=ano=;$_;}sub pearls{$_=__." ";
s-[as]--g;$_} print justify, the, pearls, "hacker\n"';
eval();sub __{$_="baaa";$_=(caller(s/b//))[s/a//g];s=[^:]+::==g;$_;}