добавление возможностей регулярного выражения для простого поиска cgi

Question

У меня этот простой скрипт cgi работает отлично, но я хочу добавить возможности регулярного выражения. это возможно? если да, то что мне нужно добавить. Благодарю.

#!/usr/local/bin/perl 
    read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'}); 
    @pairs = split(/&/, $buffer); 
    foreach $pair (@pairs) { 
     ($key, $value) = split(/=/, $pair); 
     foreach $pair (@pairs) { 
      ($key, $value) = split(/=/, $pair); 
      $value =~ tr/+/ /; 
      $value =~ s/%([a-zA-Z0-9][a-zA-Z0-9])/pack("C", hex($1))/eg; 
      $formdata{$key}.= "$value"; 
     } 
    } 
    $search = $formdata{'search'}; 
    open(INFO, "/test/myfile"); 
    @array=<INFO>; 
    close (INFO); 

... Код усечение

Answer 1

Чтобы найти строки, которые заканчиваются ".cgi":

my @array = grep /\.cgi$/, <INFO>;