next unless /#?\w+/; print $_;