Well, this is quite obvious, and falls more into the "Wow, that's an interesting feature" realm than the "line noise with added punctuation" area.

I am, in fact, a little worried that I can do it this way (using main) at all.

$m = tie $m, main;
print " hacker\n$m";
sub STORE {print 'another '}
sub TIESCALAR {print 'Just '; bless [], $_[0]}
sub FETCH {print 'perl';''}
[download]