#!/usr/bin/perl
sub ::'&'{bless$_[0]}sub ::1:{print $_[0]->(),$"}sub ';'{print $_[0]->
(),$/}::{print'Just '}->()->(::{another})->(::{Perl});$q->(::{hacker})