Run instructions: place in a script, e.g. "myscript.pl" and run as follows: perl myscript.pl  "Hello World!"

use strict;
use warnings;
package l_A'MN'm_N'mn;

our %sbernpu;
our @NETI;
our $z_="what in the world is a";

$_ = q{ $sbernpu{$#NETI}=[$l_A'MN'm_N'mn'z_,"cevag","?"] };
$! = y|=-},\"-'|    N-ZA-M{ } / n-za-m( ); @   \-|;  #cleanup
eval;  # add hash entry

push @{$sbernpu{$#NETI}}, '';
print "@{$sbernpu{$#NETI}}\n";
[download]