my $infiles = '/path/to/RETAKC*.txt';
my $outpath = '/another/path/';
use File::Basename 'basename';