$t = "C++, Java; JavaScript, c++1, java; Oracle. Perl - power.";
$t =~ s/\b\Qc++\E(?=\W)/!!!Perl!!!/ig;
print $t, "\n";md5($row['sha2'].'1') и md5($sha2).'1' разные вещи.$hash = md5(md5($whirlpool).md5($sha2).'1');$hash = md5(md5($whirlpool).md5($sha2.'1')); и будет равенство.