my $test = 'illegal\characters*example?';
my @illegal = qw(\ * ?);
my @legal = qw(bs a q);
my $c = 0;
foreach my $val (@illegal) {
	$test =~ s/\Q$val\E/[$legal[$c]]/g;
	$c++;
}
print $test."\n";