Win8 Strawberry 5.8.9.5 (32)  Mon 12/20/2021 17:08:37
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

no warnings 'qw';
for my $c (qw/
    # @ ' : ; > < , . { } [ ] = ! " £ $ % ^ & * ( ) 1.2
    0 1 2 - + -1 +1 12 +12 -12
    /) {
    my $is_blacklisted = $c =~ tr/#@':;><,.{}[]=!"£$%^&*()//;
    print "'$c'", $is_blacklisted ? '' : ' NOT', " blacklisted \n";
    }

^Z
'#' blacklisted
'@' blacklisted
''' blacklisted
':' blacklisted
';' blacklisted
'>' blacklisted
'<' blacklisted
',' blacklisted
'.' blacklisted
'{' blacklisted
'}' blacklisted
'[' blacklisted
']' blacklisted
'=' blacklisted
'!' blacklisted
'"' blacklisted
'£' blacklisted
'$' blacklisted
'%' blacklisted
'^' blacklisted
'&' blacklisted
'*' blacklisted
'(' blacklisted
')' blacklisted
'1.2' blacklisted
'0' NOT blacklisted
'1' NOT blacklisted
'2' NOT blacklisted
'-' NOT blacklisted
'+' NOT blacklisted
'-1' NOT blacklisted
'+1' NOT blacklisted
'12' NOT blacklisted
'+12' NOT blacklisted
'-12' NOT blacklisted