open ($fh, "<poem") or die "Couldn't Open!";
$poem = do{ local $/; <$fh> };
($before, $match, $after} = split /(DOG)/, $poem;