Murder processes with a pattern

murder

#!/usr/bin/perl
use warnings;
use strict;

my $pattern;
my $murder;
if($#ARGV > 0) {
  $murder = 1;
  $pattern = $ARGV[1];
  print "Murdering:\n";
} else{
  $pattern = $ARGV[0];
  $murder = 0;
  print "Stalking. Use murder -k PAT to murder.\n";
}
my $ps = `ps -eo pid,comm --no-headers`;
my @ps = split "\n", $ps;
for(@ps) {
  if(/^\s*(\d+?)\s(.*$pattern.*)$/) {
    if($murder) {
      print "\t$1 $2\n";
      `kill $1`;
    } else {
      print "$1 $2\n";
    }
  }
}