The Perl Cookbook has a hack for that.
In reply to Re^2: On bad habits by Xenograg in thread On bad habits by g0n