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