#! /usr/bin/perl
use strict;
use Digest::MD5 qw/md5_hex/;

my $str;
while (<DATA>) {
    chomp;
    my ( $key, $value ) = split /\s*=\s*/;
    $value = md5_hex( $value ) if $key eq 'PASS';
    $str .= $key . ' = ' . $value . $/;
}
print $str;

__DATA__;
NAME = DamnDirtyApe
PASS = HestonRules