The following should work:

if ($content =~ /^(sub\s+\w+)[^#]*(#.*)?/) {
   print "$1\n";
   print "$2\n" if ($2);
}
[download]

Hope this helped.
CombatSquirrel.

---

Entropy is the tendency of everything going to hell.