Help for this page

Select Code to Download

Select or download this

@res = grep {/$pat/g} @arr;
print "Search:\t@res\n";