добавление регулярных выражений в простой поиск 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>;