Here's a Win::32 Clipboard Auto Formater boosted with Good Dr Conway's Steroids!

Text::Autoformat does a really good job at finding patterns in a non structured text, and format it properly. I use it on a daily basis (mail, documentation), along with perltidy. These two tools save me hours of painful reformatting.

#!/usr/bin/perl -w
  use strict;
  use Win32::Clipboard;
  use Text::Autoformat;

  my $clipboard = Win32::Clipboard();
  $clipboard->Empty();

  print "Text auto-format-clean when copied to the clipboard is active
+.\n";
  print "To exit, CNTL-C out of this window.\n";

  while (1) {
      $clipboard->WaitForChange();
      my $text = $clipboard->GetText();
      next if ($text eq '');
      $text = autoformat($text, {all=>1}); # The magic kicks in.
      $clipboard->Set($text);
  }

  exit;
[download]

Untested, but it should work (having said that, I won't be surprised that it dies horribly)

<kbd>--
my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd>