If 5.10+ is available, use of the //p regex modifier allows ${^MATCH} (and friends) to be used eliminating the need for an explicit capture and perhaps slightly speeding the matching:
>perl -wMstrict -lE "my $line = q{as specified, line has: no digits (0-9); letters!}; ;; say qq{'${^MATCH}' found at $-[0]} while $line =~ m{ [ (),.;:?!-] }xmsgp; " ' ' found at 2 ',' found at 12 ' ' found at 13 ' ' found at 18 ':' found at 22 ' ' found at 23 ' ' found at 26 ' ' found at 33 '(' found at 34 '-' found at 36 ')' found at 38 ';' found at 39 ' ' found at 40 '!' found at 48
In reply to Re^2: index regex
by AnomalousMonk
in thread index regex
by welle
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |