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

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

__DATA__

ABC
123
XYZ