if ($line =~ qr|$owner\s+(\w+)\w+\s+\d+.+processName=$processName|){ $pid = $line =~ qr|$owner\s+(\w+)\w+\s+\d+.+processName=$processName|; say "Found $processName in getPids() owned by $owner. PID is $1"; #print "$1\n"; }else{ say "Loser"; }