#!/usr/bin/perl -w

    use strict;


    my $str = 'ABC"123"XYZ';

    my @p   = split /("[^"]+")/, $str;

    foreach my $part (@p) {
        print "part = ($part)\n";
    }

    __END__
    Prints:

    part = (ABC)
    part = ("123")
    part = (XYZ)