Help for this page
@main::fields = split(/\|/, $_);
#!/usr/bin/perl -w use strict; ... } search( 'fai.txt', get_part_num() );