extract guts of Perl to look at