access-list blah extended permit tcp object-group blah_Assets object-group mygroup eq www 

##</code><code>##

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