my @unsafe = qw ( < > " ' );
my %unsafe;
@unsafe{@unsafe} = @unsafe; # make a hash lookup table
for (1..255) {
    push @safe, chr($_) unless defined $unsafe{ chr($_) };
}
print @safe;