#!perl -lp
use Digest::MD5'/^/';$_=md5_hex$_