use strict;
use warnings;


open(ALL,"all2.txt") || die $!;
for (<ALL>){
my($name,$url,$email,$id,$comment,$date) =~ split(/\|/,$_) || die $!;
print $url;
}