or download this
use warnings;
use strict;
...
printf("len text1 %s len text2\n", length($text1) == length($text2) ?
+'==' : '!=');
printf("text1 %s text2\n", $text1 eq $text2 ?
+'eq' : 'ne');
printf("md5 text1 %s md5 text2\n", md5($text1) eq md5($text2) ?
+'eq' : 'ne');