perl -pale 'print $F[0]; @p=<test/*_$F[0].tst>; s/^/$p[0] /' test.list

##</code><code>##

perl -pale 'print $F[0]; ($p) = <test/*_$F[0].tst>; s/^/$p /' test.list