Re^2: index regex

[AnomalousMonk]

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