Select Code to Download

use strict;
use warnings;
...
while (<$f>) {
    print "$1\n" if /(#.*)$/;
}

grep \# /etc/services | cut -f2 -d#