Perl mode

​x
 
1
 #!/usr/bin/perl use Something qw(func1 func2); # strings my $s1 = qq'single line'; our $s2 = q(multi- line); =item Something Example. =cut my $html=
2
            << 'HTML' <html>
3
                <title>hi!</title>
4
​
5
                </html> HTML print "first,".join(',', 'second', qq~third~); if($s1 =~ m[(?
6
                <!\s)(l.ne)\z]o) {
7
    $h->{$1}=$$.' predefined variables'; $s2 =~ s/\-line//ox; $s1 =~ s[ line ] [ block ]ox; } 1; # numbers and comments __END__ something...

MIME types defined: text/x-perl.