{
    open(my $data, '<', "data_file") or die("ack - $!");
    open(my $out,  '>', "out_file")  or die("ack - $!");

    local $/ = \320;
    while(<$data>) {
        chomp;
        print $out $_ . "\n";
    }
}