Can you just do it in one regex (i'm going to assume the domain and name don't have dbl quotes)?

my $string = q/ Win32_Account.Domain="ADDomain",Name="aduser1"/;
print
  ($string =~ /Win32_Account.Domain="(.+?)",Name="(.+?)"/i)
    ?  $1 . "\\" . $2
    :  "Account Deleted"
;
[download]