Help for this page
Select Code to Download
Select
or
download this
... = split(m#\|# => $_, -1);
Select
or
download this
... = split(m#\|#);
Select
or
download this
print THIRD $_->[0],$id,"|",$key,"|",$cols[0],"|",$_->[0],"\n";