my $file_base = 'CSP8216.TXT';
my $file_filter = 'CSP8216.TXT';

open my $info_filter, $file_filter or die "Die: Could not open $file_filter: $!";
	while(my $line_filter = <$infofilter>)
	{
		open my $info_base, $file_base or die "Die: Could not open $file_base: $!";
			while(my $line_base = <$info_base>)
			{
				if("$line_filter"=="$line_base")
				#if(substr($line_filter, 0, 11)==substr($line_base, 0, 11))
				{
					print $line_base; 
				}
		
	
			}
			close $info_base;
	

	}
close $info_filter;