Perl mode

x
 
1
#!/usr/bin/perl
2
3
use Something qw(func1 func2);
4
5
# strings
6
my $s1 = qq'single line';
7
our $s2 = q(multi-
8
              line);
9
10
=item Something
11
    Example.
12
=cut
13
14
my $html=<<'HTML'
15
<html>
16
<title>hi!</title>
17
</html>
18
HTML
19
20
print "first,".join(',', 'second', qq~third~);
21
22
if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
23
    $h->{$1}=$$.' predefined variables';
24
    $s2 =~ s/\-line//ox;
25
    $s1 =~ s[
26
          line ]
27
        [
28
          block
29
        ]ox;
30
}
31
32
1; # numbers and comments
33
34
__END__
35
something...
36
37

MIME types defined: text/x-perl.