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;'