add some tests for Perl #71922

Apparently this is fixed now. But add tests