Select Code to Download

use strict;

...
__DATA__
3851 A A G G T T
3854 A A G G T T

perl -pi.bak -e 's/( \w) /$1/g' file.dat

s/ \w\K //g;