open (IN, "<:utf8", "output.txt");
my $in  = <IN>;
	while ($in) {
                #doing some formatting
		$in =~ s/\'//g;
		$in =~ s/\=//g;
		$in =~ s/\>//g;		
		$in =~ s/(.*)(left)(.*)/$1$2$3/g;
		$text->insert('end', "$3");
		}
	$in  = <IN>;
	}
close IN;