use strict;
use warnings;
use IO::File;

my $f = new IO::File "/etc/services", "r"
    or die "can not read services file";

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

##</code><code>##

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