#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 2;

my $line = 'root      1435  0.0  0.0 147236  7548 ?        Ss   08:46   0:02 /usr/local/httpd-2.4.16/bin/httpd -k start';
my $processName = 'httpd';
my $owner = 'root';
my ($pid) = $line =~ qr|$owner\s+(\d*)\s+\d.+$processName|;
is ($pid, '1435', 'Match');
is ($1, '1435', 'Match');