Select Code to Download

use strict;
use warnings;
...
        print "Not match\n";
    }
}

$VAR1 = {
          'address' => 'Address: Melbourne',
...
          'name' => 'Name: Roger'
        };
Not match

use strict;
use warnings;
...
sub taint_fields {
    return map { $_ ||= '.*' } @_;
}