if ( $r =~ /[,]\s*?[{]/smx .. $r =~ /[}]\s*[;]\s*$/smx ) {
 push @{$rawdata{$l}},$r;
 if ( $OLD_PERL_VERSION > '5.026' ) {
  next;
 }
}