#!/usr/bin/perl
use Tie::File;
my $filename = 'foo.dat';

tie @array, 'Tie::File', $filename or die "Cannot open $filename\n";
splice @array,1,1
[download]

perl -ni.bak -e 'print unless /(b\|)*b/' filename
[download]

open(FILEHANDLE,"+< $FILENAME) or die print $!;
while(<FILEHANDLE>){
     if ($_ ne 'b|b|b|b|b|b'){
         push(@outtext,$_);
         }

Do what you want from here.  Of course it always a 
good idea to lock the file if you are on a UNIX 
system.
[download]

I can't get that to work how. Could you post a more complete answer. I am feeding the push command the line that I want removed but it doesn't do anything. What am I doing wrong?

well, if you're pushing the line you don't want onto the array, it's going to end up in the array. It might help to think of another way of doing the same thing:

push @array, $line unless $line eq 'b|b';
[download]

Read the fine manual! => perldoc -f push

Philosophy can be made out of anything. Or less -- Jerry A. Fodor