perl -e 'package a; use base qw(Tie::Handle);
sub TIEHANDLE { bless \ +shift } sub WRITE {
$_[1] =~ /.............................(.)..
....(.)(.)...........(.)/x && print "$4$3$2$
1\n" } package main; tie *STDERR, a; $a =$0;
$a->print(bless {}, "main")=~/Bareword found
where operator expected at -e line 1/smxgo;'
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).