text perl-oneliner print