XXX XXX XXX
XXX XXX XXX

##</code><code>##

XXX XXX XXX
XXX XXX XXX

##</code><code>##

A.tab XXX XXX XXX
A.tab XXX XXX XXX
B.tab XXX XXX XXX
B.tab XXX XXX XXX

##</code><code>##

for file in `ls my_input_dir`; do perl -n -E 'print "$ARGV[0]\t$_"' my_input_dir/$file; done