perl 5.8 police