for line in `ls *.txt`; do mv "$line" "$($line | awk -F "." '{print $1}')"; done