my $line=do {
  local $/=undef;
  <DATA>;
};
my @substrings=$line=~/(\w+\.\w+)/g;
print "$_\n" foreach(@substrings);
__DATA__
      Path to file: /users/me/foo.baz/filename.ext
my_content(word.other)

##</code><code>##

foo.baz
filename.ext
word.other