note
moritz
<p>Use regexes with char classes:
<code>
#!/usr/bin/perl
use warnings;
use strict;
my $allowed = "pure";
my $re = quotemeta $allowed;
my $str = "p u+r-e";
$str =~ s/[^$re]//g;
print $str, "\n";
</code>
<div class="pmsig"><div class="pmsig-616540">
<hr><p>[http://perl-6.de/|Perl 6 in German] -- [http://sudokugarden.de/en/online/today|Difficult Sudoku]
</div></div>
634963
634963