use strict;
use warnings;
use DBI;
my $dsn = 'DBI:mysql:host=localhost';
my $dbh = DBI->connect($dsn);
my $sth = $dbh->prepare("SELECT DECODE('encodedcontent', 'secretvalue')");
$sth->execute;
my $decoded = $sth->fetchrow;
print $decoded;