C:\test>perl -MO=Deparse,p
#!/usr/bin/perl
sub ::'&'{bless$_[0]}sub ::1:{print $_[0]->(),$"}sub ';'{print $_[0]->
(),$/}::{print'Just '}->()->(::{another})->(::{Perl});$q->(::{hacker})
^Z
sub main:: (&) {
    bless $_[0];
}
sub 1 {
    print $_[0]->(), $";
}
sub   (;) {
    print $_[0]->(), $/;
}
main::(sub {
    print 'Just ';
}
)->()->(main::(sub {
    'another';
}
))->(main::(sub {
    'Perl';
}
));
&$q(main::(sub {
    'hacker';
}
));
- syntax OK