#!/usr/bin/perl

use strict; 
use warnings;
use lib 'lib';
use URI::Find::Schemeless;

my $text = <<TXT;
Hau doch mal den Gockel auf www.google.com, Oder nutze "google.de".
Oder Google.com!
TXT

my $finder = URI::Find::Schemeless->new(sub {
    my($uri, $orig_uri) = @_;
    return "[$orig_uri]<$uri>";
});
$finder->find(\$text);
print $text;