perl -pi -w -lane '$F[0] =~ s/AAA/BB/;' *.txt