Select Code to Download

my $str = "This is a line # with comment";
my $word = '#';
...
}
__OUTPUT__
#

my $str = "This is a line # with comment Boss.";
my $word = "#";
...
while ($str =~ /(\S+)/g) {
    print "$1\n";
}