##
Use of implicit split to @_ is deprecated at \perl.pl line 7.
Use of uninitialized value in pattern match (m//) at perl.pl line 7, line 173.
Died at \perl.pl line 7, line 173.
## ##
use strict;
use warnings;
open(ALL,"all2.txt") || die $!;
for (){
my($name,$url,$email,$id,$comment,$date) =~ split(/\|/,$_) || die $!;
print $url;
}