$good = do {
    local @ARGV = ($file);
    join '', map { /$vals[0]/i ? (split)[1]."\n" : () } <>;
};