Select Code to Download

scrub 'pure', 'p!u-r-*e'; # returns pure

sub string_clean {
  my ($pure, $dirty) = @_;
...
  my @cleaned = grep { $pure{$_} } @dirty;
  return join '', @cleaned;
}

scrub 'impure' => 'pure' ; # yields 'pure'