Select Code to Download

my @patterns = (qr/#.*/, qr{$^\s+}, qr{\s+$}, qr/^,/);
sub apply_patterns
{
  $_[0] =~ s/$_// for (@patterns[ @_[ 1 .. $#_ ] ]);
}

my %patterns = 
(
...
{
  $line =~ s/$_// for %patterns{qw/comment trailingSpaces/};
}