#!perl
use Win32::GuiTest qw(SendKeys);
use win32::Clipboard;

my $CLIP = Win32::Clipboard();
SendKeys("^c");
my $alter = $CLIP->Get();

my @alter = split /\r\n/, $alter;

foreach (@alter)
{
	if (/\W/)
	{
			$_ = "<li> $_ </li>" if !/<li>/;
			$_ .= "\r\n";
	}
	else
	{
		$_="\r\n";
	}	
}

$alter = join("",@alter);
$alter = "<ol>\r\n".$alter."</ol>";

$CLIP->Set($alter);
SendKeys("^v");