
$files=`cat filmlist2.txt`;
$_=$files;
@filesa= split(/\n/,$_);

foreach(@filesa) {
	@prefix = split(/\./);
	$filename = $prefix[0];
	print "$filename\n";
}
