… | |
… | |
20 | () |
20 | () |
21 | } |
21 | } |
22 | |
22 | |
23 | # "find interetsing things"-patterns |
23 | # "find interetsing things"-patterns |
24 | my @mark_patterns = ( |
24 | my @mark_patterns = ( |
25 | qr{([[:word:]]+)}, |
|
|
26 | |
|
|
27 | # common "parentheses" |
25 | # common types of "parentheses" |
28 | qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|\)|$)}x, |
26 | qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|\)|$)}x, |
29 | qr{(?:^|\s) ` ([^`']+?) ' (?:\s|\)|$)}x, |
27 | qr{(?:^|\s) ` ([^`']+?) ' (?:\s|\)|$)}x, |
30 | qr{ \{ ([^{}]+?) \} }x, |
28 | qr{ \{ ([^{}]+?) \} }x, |
31 | qr{ \[ ([^{}]+?) \] }x, |
29 | qr{ \[ ([^{}]+?) \] }x, |
32 | qr{ \( ([^()]+?) \) }x, |
30 | qr{ \( ([^()]+?) \) }x, |