open (WRITE, ">example.txt) || die "Can't open 'example.txt':\n$!"; print WRITE @parse; close WRITE;