perl -pi.bak -e 's/$/qq(\t).substr$ARGV,-3/e' FILE*[0-9] [download]
In reply to Re: parse filenames by Anonymous Monk in thread parse filenames by esolm