7 |
my $s = $search; |
my $s = $search; |
8 |
|
|
9 |
# remove re: fdw: [list] preffixes from e-mail |
# remove re: fdw: [list] preffixes from e-mail |
10 |
while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig || |
while ( $s =~ s/^\s*\[(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+)\]\s*$/$1/ig || |
11 |
$s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig || |
$s =~ s/^\s*(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+?)\s*$/$1/ig || |
12 |
$s =~ s/^\[\S+\]\s*//ig || |
$s =~ s/^\[\S+\]\s*//ig || |
13 |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
14 |
$s =~ s/\(fwd\)\s*$//ig || |
$s =~ s/\(fwd\)\s*$//ig || |