strawberry Perl