#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {

    my($name,$url,$email,$id,$comment,$date) = split(/\|/);
    print $url;
}
	
__DATA__
Me|http://myURL.com|Me@myURL.com|147|Hi,Guys!|Monday, July 28th 2003 11:12PM