Perl mode
x
1
#!/usr/bin/perl
2
3
use 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
.