| … | |
… | |
| 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, |
