#!/usr/bin/perl

$tweet = 'Mayor Nickels leads the pack as Seattle campaign contributions break $1 million mark http://tinyurl.com/ckpxmu #seattle #seattlenews';
$_ = $tweet;
s/(http.*)/<a href=\"\1\">\1<\/a>/;
print $_ . "\n";