Help for this page

Select Code to Download

Select or download this

use List::Part;
my ( $in, $out ) = part { m/$hit/ } @pids;