$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'));
и будет равенство.