foreach my $line (<$infh>) {
    if ($line =~ /$re_data/) {
        # Split on whitespace, surround with parens, join with commas
        push @data, "(" . join(",", split(/\s+/, $line)) . ")";
    }
}