for my $word (@_) { $word =~ s/^#?\s*//;