perl -lane '/^#/ || $F[3]=~($F[1]=~s/./($&)?/gr) && printf "%-50s%s\n", $_, join ", ", @+[eval $F[5]]' [download]
In reply to Re^2: String processing by Anonymous Monk in thread String processing by dovah