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