use strict;
use warnings;

for my $file (<*.ptseq>) {
	my ($baseName) = $file =~ /^(.+)\.[^.]+$/;

	my $textFile1 = $baseName . '1.txt';
	my $textFile2 = $baseName . '2.txt';

	print "$file ->\t$textFile1\t$textFile2", "\n";
}