#!/usr/bin/perl use strict; use warnings; use CGI; my $CGI = new CGI(); sub main { print $CGI->header(); my @query = $CGI->param('query'); while(@query) { my $line = shift(@query); print "$line"; } #my $count = 0; #my @res; #foreach my $line(@query) { # if($line =~ /[A-Za-z0-9]/) { # push(@res, $line); # } elsif ($line =~ /^\s$/) { # $count++; # } #} print<

Last submitted:

@query

HTML } main();