@main::fields = split(/\|/, $_);