Help for this page

Select Code to Download

Select or download this

while (my $line = <> ) {
    push @lines, $line unless $line eq ".\n";
}