use File::Glob ':glob';

use strict;

my @txt_files = bsd_glob("*.txt");
foreach my $txt_file (@txt_files) { 
    system("copy $txt_file+tail.txt $txt_file");
}