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

map { print $_ . "\n" } split('"', $str);

__DATA__

ABC
123
XYZ
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);