#!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/) { $_ = "