$cond =~ s/\[COL\:([\w_]+)\]/\$\$phash_msg\{\"$1\"\}/ig;
my %hashMessage = $oldMsg =~ /(\w+)=\'([^\']*)\'/g;
perl -e "print crypt ('blah','iv');"