#!perl -w

use strict;
use Win32::clipboard;
use Time::HiRes qw( usleep );


my $clip = Win32::Clipboard("remove dots and underscore in the clipboard content");
for (;;) {
    $clip->WaitForChange();

	if (Win32::Clipboard::IsFiles()) {
	    my @files = Win32::Clipboard::GetFiles();
    	print join("\n", @files);
	}

    $clip->Empty();

    usleep 000_500;
}

##</code><code>##

Win32::Clipboard::SetFiles(\@files);