sub Markup {
	$textarea = (grep {IsWindowVisible($_)} (FindWindowLike($ide, undef, qr/Edit/, undef, undef)))[0];
	SetForegroundWindow($textarea);
	SendKeys('^a^c{HOME}');
	my $source = $clip->GetAs(CF_UNICODETEXT);
	print map {sprintf("%2.2X ", ord($_))} (split //, $source); print "\n\n";
	$source = Encode::decode("UTF16-LE", $source);
	print map {sprintf("%2.2X ", ord($_))} (split //, $source); print "\n\n";
	$source = Encode::encode("UTF16-LE", $source);
	print map {sprintf("%2.2X ", ord($_))} (split //, $source); print "\n\n";
	$clip->Set($source);
	SendKeys('^n^v')
}