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