use strict; use warnings; use DBI; my $db = DBI->connect('DBI:mysql:host=localhost'); my ($encoded) = $db->selectrow_array("SELECT ENCODE('ToBeHidden', 'secretvalue')"); my ($decoded) = $db->selectrow_array("SELECT DECODE('$encoded', 'secretvalue')"); print $decoded; # prints --> ToBeHidden