print DAT join('|', @input_to_file), "\n";
@data_to_print=split /\|/, $data_to_read;