36 |
$content =~ s/^!!!!!\s*(.*?)$/^^^^^ $1/mg; |
$content =~ s/^!!!!!\s*(.*?)$/^^^^^ $1/mg; |
37 |
|
|
38 |
$content =~ s/!([A-Z]\w+)/$1/mg; |
$content =~ s/!([A-Z]\w+)/$1/mg; |
39 |
|
|
40 |
|
# markup |
41 |
$content =~ s!''(.*?)''!/$1/!mg; |
$content =~ s!''(.*?)''!/$1/!mg; |
42 |
$content =~ s!__(.*?)__!*$1*!mg; |
$content =~ s!__(.*?)__!*$1*!mg; |
43 |
|
|
44 |
|
# links to url |
45 |
$content =~ s!\[\s*(.+?)\s*[\s\|]\s*((http://|mailto:)\S+)\s*\]!"$1"<$2>!mg; |
$content =~ s!\[\s*(.+?)\s*[\s\|]\s*((http://|mailto:)\S+)\s*\]!"$1"<$2>!mg; |
46 |
$content =~ s!\[\s*(http://\S+)\s*[\s\|]\s*(.+?)\s*\]!"$2"<$1>!mg; |
$content =~ s!\[\s*(http://\S+)\s*[\s\|]\s*(.+?)\s*\]!"$2"<$1>!mg; |
47 |
|
|
48 |
|
# page links with names |
49 |
|
$content =~ s!\[\s*([\w\s]+)\s*\|\s*(\w+)\s*\]!"$1"[$2]!mg; |
50 |
|
|
51 |
my $seen; |
my $seen; |
52 |
my $out; |
my $out; |
53 |
foreach (split(/[\n\r]/, $content)) { |
foreach (split(/[\n\r]/, $content)) { |