perl how to escape (|) character

Shell Programming and Scripting
1 
my @array;
my $sepa = "|";
print $sepa;
open FH, "<100_20091023_2.txt";
while(<FH>){

  push @array, split(/\$sepa/, $_);
  print "@array\n\n";

}

I am not able split the line which have | separated

2

I changed your script to:

#!/usr/bin/perl
my @array;
my $sepa = '\|';
print $sepa;
open FH, "<100_20091023_2.txt";
while(<FH>){

push @array, split($sepa, $_);
print "@array\n\n";

}

Note the change to the $sepa value and the split statement...