All right:

-- def_macro eval_inplace
my $count = 0;
$main::c->Set("In place evaluation started. If you wish to disable, pl
+ease copy -- end");
while ($main::c->WaitForChange) {
    $count++ % 2 or next;
    my $t = $main::c->GetText or next;
    last if $t =~ /^-- END/i;
    my $to = TempOut->new();
    eval { eval "\$\\=\$/;$t;1" or die $@;1 } or $main::c->Set("Error 
+executing perl: $@ ($t)") and next;
    $main::c->Set($to->as_string);
    $to->release;
}
print "Exited successfully, clipcommand returned to normal";
[download]

This is definitely a hack and shows why I need to clean up some things. However, if you run the script, copy that macro and copy -- eval_inplace, the macro will see everything you copy as perl code to execute and will dutifully populate the clipboard with its output (or the error it generated). To stop it, copy -- end. Also, you can't promote this macro and expect it to work (like I said, hack =)).

Update: I forgot this part. I have the *nix style shebang line out of habit. I personally use it with ActiveState build 822.

Alright, I'll have to live without it for now (not being able to promote it kind of defeats the effect) and hope for an eventual new version.

I looked into getting it going on AS 822, but couldn't find various packages it seems to need. I'm not familiar enough with AS to know if it will work. I guess I'll just try it and see what errors come back, if any.

Again, many, many thanks for this.

IPC::Run, I think, is the only one you'll need. It's available off of the bribes ppm site. The url is http://www.bribes.org/perl/ppm/.