Select Code to Download

sub _ : {
    print $_[$%] and ( z &'q' );
...
  and $= .= *::_ = ( _ . ( z &'l' ) )
  and $= =~ s~\*.*:~\x61~
  and print $=

sub _ : {
    print $_[0] ;
...
$= .= *::_ = ( _ . ( 'h' ) );
$= =~ s~\*.*:~\x61~;
print $=

sub _ : {

sub _{ print $_[0];return 'p'}

$= = *= = _( 'j' );

$= .= (*::_ = ( _ .  'h'  ) );

$= =~ s/\*.*:/a/