perl -lane '$F[3] =~ ($F[1] =~ s/./($&)?/gr)
&& printf "%-60s%s\n", $_, join ",", @+[eval "$F[5]"]'