C-x b *perl-scratch* RET
M-x cperl-mode RET

##</code><code>##

C-h M-| perl RET