my $test = '{}[]£$%';
my $match = ($test =~ m/(\W*)/)[0];
print $match;

__OUTPUT__
{}[]£$%