# Make a file called linkable.pl with these contents
#!/usr/bin/perl -w
my $n = $ARGV[0];
$n=~s{^\.\/}{};

my $path = q~http://www.fooberry.com~;
print qq~<a href="$path/$n">$n</a>\n~;
1;

##</code><code>##

find . -name "*.txt" -exec ./linkable.pl {} \;