while (<FH>) {
    s/#.*$//;
    my @args = split(' ', $_);
    next unless @args;
    ... process command ...
}