print join ", ", map { chomp; s/(d)/new($1)/; $_ } @a;