# usage: # ls *.fits | perl rn.pl while( $_ = ){ print; chomp; `mv $_ ${_}s`; }