$_ = 'a1!b2.c3?';
print $1 while /([abc])/g;  # abc
print $1 while /([123])/g;  # 123
print $1 while /([!.?])/g;  # !.?
print "\n";