perl -pi.bak -e 's/$/qq(\t).substr$ARGV,-3/e' FILE*[0-9]