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

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