:let @p="L?^#!\r/^__END__\ry''''p!Gperl\rG"