But that's cheating!

I think environmental variables are the way to go, actually (just figured this out):

alias ka 'setenv _KA_ '"'"'\!*'"'"';ps -ef|&perl -n -e '"'"'BEGIN{$A=(
+split(" ",$ENV{"_KA_"}||exit(0)))[0]}END{@a&&kill(9,@a)&&print"Killed
+: @a\n":"No process found to kill!\n"}($a=(split())[1])!=$$&&/$A/&&ki
+ll(2,$a)&&push(@a,$a)&&print'"'"''
[download]

How's that?