#!/usr/bin/perl -w

use integer;

$file = '.PZ';
$wfile = 'PZ';

    open FILE, "< $file" or die "Cant open file.\n";
    open WFILE, "> _$file" or die "Cant open file.\n";

    print "$file\n";
    foreach $line (<FILE>) {
        chomp $line;
        $line =~ s/0x00/ /g;
        $line =~ s/  / /g;
        $line =~ s/ ;/;/g;
        ($name,$phone,$address) = split(";",$line);
        $name =~ s/. $//;
        $phone =~ s/. $//;
        $address =~ s/. $//;
        print WFILE "$name;$phone;$address\n";
    };
    close FILE;
    close WFILE;