perl 5.8 police again