c:\@Work\Perl\monks\1nickt>perl elide_sensitive_1.pl
ok 1 - '{'password' => 'secret'}' -> '{'password' => '***'}'
ok 2 - '{'password' => 'sec\'ret'}' -> '{'password' => '***'}'
ok 3 - '{"password" => "secret"}' -> '{"password" => "***"}'
ok 4 - '{"password" => "sec\"ret"}' -> '{"password" => "***"}'
ok 5 - '{'password' : 'secret'}' -> '{'password' : '***'}'
ok 6 - '{'password' : 'sec\'ret'}' -> '{'password' : '***'}'
ok 7 - '{"password" : "secret"}' -> '{"password" : "***"}'
ok 8 - '{"password" : "sec\"ret"}' -> '{"password" : "***"}'
ok 9 - '{'user' => 'secret'}' -> '{'user' => '***'}'
ok 10 - '{'user' => 'sec\'ret'}' -> '{'user' => '***'}'
ok 11 - '{"user" => "secret"}' -> '{"user" => "***"}'
ok 12 - '{"user" => "sec\"ret"}' -> '{"user" => "***"}'
ok 13 - '{'user' : 'secret'}' -> '{'user' : '***'}'
ok 14 - '{'user' : 'sec\'ret'}' -> '{'user' : '***'}'
ok 15 - '{"user" : "secret"}' -> '{"user" : "***"}'
ok 16 - '{"user" : "sec\"ret"}' -> '{"user" : "***"}'
1..16
ok 17 - no warnings
1..17