More Perl-ish