open(DATA,"myfile") or die "Can't open file"; print "My page"; print ""; while() { my @elements = split('\|',$_); print ""; foreach my $el(@elements) { print ""; } print ""; } print "
$el
"; ####