- or download this
(\W*?) # this shouldn't be necessary since whitespace should have be
+en slurped on previous line but this shouldn't hurt either
- or download this
(\s*?) # this shouldn't be necessary since whitespace should
+ have been slurped on previous line but this shouldn't hurt either
- or download this
my $test = '{}[]£$%';
my $match = ($test =~ m/(\W*)/)[0];
...
__OUTPUT__
{}[]£$%