* shorten Perl generator.