my @runs = $str =~ /".*?\\([^\\"]*)"[^"]*"[^A-Z]*((?:(?! size).)+)/g;