Win8 Strawberry 5.8.9.5 (32)  Sat 12/18/2021 23:36:37
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

use Data::Dump qw(dd);

# my $regex = qr/[#@':;><,.{}[]=!"£$%^&*()]/;  # as posted pm#11139686
my $regex = qr/[#\@':;><,.{}[\]=!"£\$%^&*()]/;  # corrected
dd $regex;

no warnings 'qw';
for my $c (qw/ # @ ' : ; > < , . { } [ ] = ! " £ $ % ^ & * ( ) /) {
    print "'$c' ", $c =~ $regex ? '  ' : 'NO', " match \n";
    }

^Z
qr/[#\@':;><,.{}[\]=!"£\$%^&*()]/
'#'    match
'@'    match
'''    match
':'    match
';'    match
'>'    match
'<'    match
','    match
'.'    match
'{'    match
'}'    match
'['    match
']'    match
'='    match
'!'    match
'"'    match
'£'    match
'$'    match
'%'    match
'^'    match
'&'    match
'*'    match
'('    match
')'    match