# using a "modern" perl (5.10 or newer)
my $dna = f(x) // '';

# using an older perl
my $dna = f(x) || '';

##</code><code>##

if ( length("$dna") ) {
    ...
}

##</code><code>##

if ( length( ($dna || '') ) {
    ...
}