use strict;
use warnings;

my $text;
while (my $text = <DATA>) {
    	# match a word that contain 'ou' or #
	    if ($text =~ m/(ou)|(#)$/) {
        print $text; }
	
}

__DATA__
hello.world#
world\tour
Game.started


OUTPUT
hello.world#
world\tour

##</code><code>##

\/:*?"<>|