:%!perl
ZZ