#!/usr/bin/perl 
until ($input =~ /^q/i) { 
 print "Type a full URL to test, q to quit:\n"; 
 chomp($input = <STDIN>); 
 if ($input =~ /^q/i) { last; } 
 unless ($input =~ /^http/i) { $input = 'http://' . $input; } 
 $title = $input; 
 $title =~ s/https*:\/\/(www\.)*//i; 
 $link = qq¦<a href="$input">$title</a>¦; 
 print "Link code is $link\n"; 
} 
print "exiting program\n"; 

[edited by: phranque at 5:29 am (utc) on Aug. 8, 2008]
[edit reason] disabled smileys ;) [/edit]