programming-examples/perl/Statement/If start with - no repeat.pl

NUMBER: while (<>) {
    next NUMBER if /^-/;      
    print; 
}