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

##</code><code>##

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