i:%!perl
ZZ