my $outPath = $obj->{outpath}{absolut} . ( defined  $obj->{sap}{jfExtN
+um} )
                                         ? "-" . $obj->{sap}{jfExtNum}
                                         : "";
[download]

I've never seen the do{} block used this way; the ternary operator is the "natural" way of handling such a situation. Don't know that I'd call it less bulky, though.

--
TTTATCGGTCGTTATATAGATGTTTGCA