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

my @datafile = <PBXFILE>;

foreach my $line (@datafile) {
    $line =~ s/"//g; #Thanks, almut
    print $line;
}