I am trying to get a script that will print the last line of some PIX files I have.

access-list blah extended permit tcp object-group blah_Assets object-g
+roup mygroup eq www
[download]

My script follows:

#!/usr/bin/perl -w
while (<>) {
  m#(\w+$)#;
  print "$1\n";
 }
[download]

Yet nothing seems to match even when I use memory. I know the regex is right, I verified that with regex coach. I want to match 'www' in the above example and print it. Any ideas?