Shell Programming and Scripting

#!/usr/bin/perl -w                                         
#use CGI qw(:standard);                                    
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);      
use strict;                                                
                                                           
open(FH,"bh_file.txt");                                    
                                                           
while (my $line = <FH>) {                                  
my @hash_array = split(/|/, $line);                        
print $hash_array[1] ;                                     
}         

close(FH);

Banikoara_A1|0|2006-12-14 19:00|duration: 120 minute(s)| 0.24 0.13
Banikoara_B1|1|2006-12-14 19:00|duration: 120 minute(s)| 0.08 0.08

...
split(/\|/,$line);
...

$[ = 1;