#!perl -p
use Digest::MD5 md5_hex;s/.*/md5_hex$&/e