Added some more comments and cleaned up part of the the code to use
a named variable instead of one of the special $1 perl variables.

No functional changes.
Signed-off-by: NSteven Rostedt <rostedt@goodmis.org>