$output =~ s/ +/\t/g;
my $CLIP = Win32::Clipboard();
$CLIP->Set($output);