#!/usr/bin/perl -n

sub Print {
	s/
	    ^ (\w+).* $         # Here, instead of using pop()/shift()/exc.
	 /                      # to access the arguments, I use this nifty
	    $ARGV[0]            # substitution
	 /x;
	s&^\s+|(y)&$1^qq^\cmh^ if $1;
	&miggem and print
};

sub Journal {
	local (*/,$/)=(*",$");
	(quotemeta(m\$....(.*).\...last)^$1)
	x y zygzyz
};

sub Perl {
	return eval 'q{' . <<"Ye Perl Journal" . '}';
	Just Another Perl Hacker
Ye Perl	Journal
};

sub The {
	Print <<"Ye Perl Journal";
	@_
Ye Perl Journal
};

The(Perl(Journal))

}BEGIN{
	@ARGV=<*M*>
