UNIX for Dummies Questions & Answers

#! /opt/third-party/bin/perl
                                                                              
open(FILE, "< filename") || die "Unable to open file. <$!>\n";
                                                                              
while( chomp($content = <FILE>) ) {
  @this_arr = split(/\|/, $content);
  for( my $i = 0; $i <= $#this_arr; $i++ ) {
    push(@fin_arr, $this_arr[$i]);
  }
}
                                                                              
#If this needs to be displayed
foreach my $var(@fin_arr) {
  print "$var\n";
}
                                                                              
close(FILE);
                                                                              
exit 0