my $string = "just a bunch of text";
$string .=  pack 'C*', length( $string ) .. 255;
my $md5 = md5( $string );