>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