#!/usr/bin/env perl

use strict;
use warnings;
use Proc::ProcessTable;
use feature qw(say);

say grep {/emacs/i} 
    map { $_->cmndline } @{ Proc::ProcessTable->new->table };

__END__