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


##</code><code>##

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


##</code><code>##

sub _ : {


##</code><code>##

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

##</code><code>##

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


##</code><code>##

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

##</code><code>##

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