while ( <DATA> ) {
  my %data = $_ =~ m{
    ([^=\s]+) \s* = \s* 
    ["']?(
      (?<=')[^']* |
      (?<=")[^"]* |
      \S+
    )["']?
  }xg;