Однострочники в Perl