#! perl -slw
use strict;
use Win32::Clipboard;

my $clip = Win32::Clipboard->new;

while( $clip->WaitForChange ) {
  next unless $clip->IsText;
	my $text = $clip->GetText(); ## Grab it
	
	$text =~ s[\b(\S+)\b][ ucfirst $1 ]eg; ## Modify it
	
	$clip->Set( $text ); ## Put it back so the user can paste it.
}
__END__
the quick brown fox
The Quick Brown Fox