Help for this page
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'
www.com | www.net | www.org
No recent polls found