($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);
# hier werden obskure Variablen zu verschiedenen Strings kombiniert
# und in $_, $\ und $, gespeichert.
$,++;
$,++;
$^|=$";
# $^ enthält per default STDOUT_TOP. das wird mit dem Wert von $" bit-wise
# per OR verknüpft.

`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
# hier wird "echo Just another Perl hacker." ausgeführt