my $str = "ABC\"123\"XYZ";
$str =~ /([A-Z]*)"([0-9]*)"([A-Z]*)/;
print "Res: $1 $2 $3\n"

__DATA__

Res: ABC 123 XYZ