#!/usr/bin/perl -w
use strict;

my $string = '"ab"cde"fgh"';

my @tokens = $string =~ m/\"\w+/g;

print "$_\" " foreach @tokens;
#prints: "ab" "cde" "fgh"
[download]