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