Help for this page
use strict; use warnings; ... close $h1; print grep {$_ =~ $match} @a1;
he is man