[PERL]- traduire du shell en perl

#!/usr/bin/perl
use strict;use warnings;

open CONF,"fichier.conf"
   or die "E/S : $!\n";
open ANALYSE,"fichier.analyse"
   or die "E/S : $!\n";
open TMP,">fichier.tmp"
   or die "E/S : $!\n";

my @conf=<CONF>;
chomp @conf;
while(my $e=<ANALYSE>){
  print TMP $e unless grep
  {
    if($_=~/\|/){
      my ($x,$y)=split /\|/,$_;
      $y=~s/^\s*(.*)/$1/;
      $e=~/${x}.*$y/;
    }else{
      $e=~/$_/;
    }
  } @conf;
}
__END__