in reply to Need and algorithm to converse characters to unique and permanent Serials

a simple sample code, by googling. 
#!/usr/bin/perl
use Digest::MD5 qw/md5_hex/;

while(<>) {
  print md5_hex($_),"  $ARGV\n";
}

[download]
Sathiyamoorthy
  • Comment on Re: Need and algorithm to converse characters to unique and permanent Serials
  • Download Code

In Section Seekers of Perl Wisdom