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