open(PBXFILE, "c:\/gabi\/global_address.txt") || die "cannot open: $!";

 while (<PBXFILE>) {
	chomp;

    @datafile=<PBXFILE>;


 foreach $line (@datafile)
 {
     {tr/"//}

     print $line;
 }
  }