my $contents = do {local $/; <$input>};
    while ($contents =~ / ANSWER_HERE /msg)
    {
      # name is in $1, value is in $2
    }