function test () {

  var a = "James (aka Tachyon) is a \"Perl Saint\" !!!";
  var b = "aaaa'bbbb" + 'cccc"dddd' + "eeee\"ffff" + "gggg\'hhhh";

}

##</code><code>##

sub chunk {
	my ($strOutput) = @_;
	my (@chunks);
	my ($chunk) = 0;
	my ($found_quote) = '';
	my ($preceded_by_escape) = 0;
		
	for (split //, $strOutput) {
		# look for opening quote
		if ( /'|"/ and ! $found_quote and ! $preceded_by_escape) {
			$found_quote = $_;
			$chunk++;
			$chunks[$chunk] = $_;
			$preceded_by_escape = (/\\/) ? 1 : 0;
			next;
		}
		# look for corresponding closing quote
		if ( $found_quote and /$found_quote/ and ! $preceded_by_escape) {
			$found_quote = '';
			$chunks[$chunk] .= $_;
			$chunk++;
			$preceded_by_escape = (/\\/) ? 1 : 0;
			next;
		}

		# no quotes so just add to current chunk
		$chunks[$chunk] .= $_;
		$preceded_by_escape = (/\\/) ? 1 : 0;
	}
	
	# strip whitespace from unquoted chunks;
	for (@chunks) {
		next if m/^(?:"|')/;      # leave quoted strings alone
		s/^[ \t]+|[ \t]+$//g;
	}
	return @chunks;
}