5 lines
70 B
Perl
5 lines
70 B
Perl
|
|
||
|
|
NUMBER: while (<>) {
|
||
|
|
next NUMBER if /^-/;
|
||
|
|
print;
|
||
|
|
}
|