ls *.ptseq | 
  perl -Mstrict -nwe 'my $file = $_; chomp( $file ); my ( $name, $dont_care ) = split( /\./, $file ); print "cp $file $name" . "1" . ".txt && cp $file $name" . "2" . ".txt\n" ' > run.sh  && sh run.sh && rm run.sh