clip.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Mac::Pasteboard;

my $pb = Mac::Pasteboard->new();
my $text = '';

while(1) {
    sleep(1);
    my $t = $pb->paste();
    next if $t eq $text;
    if ($t =~ qr{^http://}) {
        system("open $t");
    }
    $text = $t;
}