set filetype for embedded Perl