#!/usr/bin/perl

open NOTES, ">> notes.txt";

my $entree = <>;

while(!($entree eq "EOF\n")) {
	$entree = <>;
	$entree = s/=>/<insertunicodecharacterhere>/;
	print NOTES "$entree";
}
close NOTES;