#!/usr/bin/perl #use strict; use warnings; sub search_pattern { my $file_name = $_[0]; my $search =...
Separate names with a comma.