@folders=glob("*"); #to get all folders in directory; extension ("*") as wildcard to get all names
foreach$folder(@folders) #to speak to each element in directory
	{
	next if ($folder!~/^UNITAS_/); #skip elements which do not start with "UNITAS"


##</code><code>##

# to get UNITAS_* folders in directory
my @folders = glob "UNITAS_*";
# to speak to each element in directory
foreach my $folder ( @folders )
	{


##</code><code>##

		$head=<TRF>; #remove the first four lines of the trf-table.txt file
		$head=<TRF>;
		$head=<TRF>;
		$head=<TRF>;


##</code><code>##

		undef = <TRF>; #remove the first four lines of the trf-table.txt file
		undef = <TRF>;
		undef = <TRF>;
		undef = <TRF>;


##</code><code>##

		# remove the first four lines of the trf-table.txt file
		undef = <TRF> for 1 .. 4;