#!/usr/bin/perl
#
# Try it with older versions of Endymion Mailman. ;)) 
#
$var1 = $ARGV[0];
#$var1 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$var1 =~ s/([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
print("$var1\n");