print is_quoted(q`I'm not quoted!`) . "\n" ;
  print is_quoted(q`"I'm \\"quoted!"`) . "\n" ;
  print is_quoted(q`"I'm not quoted!\"`) . "\n" ;
  print is_quoted(q`"I'm not \\\\"quoted!"`) . "\n" ;
  print is_quoted(q`""`) . "\n" ;
  print is_quoted(q`''`) . "\n" ;
  print is_quoted(q`"x"`) . "\n" ;
  print is_quoted(q`'x'`) . "\n" ;


#############
# IS_QUOTED #
#############

sub is_quoted {
  my $data = shift ;
  print "<<$data>>\n" ;
  
  $data =~ s/\\\\//gs ;   ## Ignore \\
  
  if (
  $data =~ /^             ## Begin
    \s*                   ## Ignore spaces in begin.
    (?:(?!\\).|)          ## Quote without \ before.
    (?:
      "[^"\\]?"                  ## Blank quoted or unique.
      |
      "(?:(?:\\")|[^"])+(?!\\)." ## quoted with values without " inside, but accept \"
      |
      '[^'\\]?'                  ## Blank quoted or unique.
      |
      '(?:(?:\\')|[^'])+(?!\\).' ## quoted with values without ' inside, but accept \'
    )
    \s*                   ## Ignore spaces in end.
  $/sx                    ## End. /x => extend space for the regex.
  ) { return( 1 ) ;} ## return true
  return 0 ;         ## return false

  ##better:
  # return undef ;
}