perl 23 677