add perl-mode if-else snippet