#!/usr/bin/perl -w
 #
 #
 use strict;
 open(FILE,"</etc/config")
   || die "Could not open /etc/config:$!\n";
 while(<FILE>)
 {
   if (/^param/i){ .....
   } elsif (.....
   } elsif (.......
   }
 }