..

sub dl
{
 # my ($a, $b, $c) = @_; <-- what are you thinking?
 my ($a,$bchild)=@_;
if ($bchild->text)