Lines Matching refs:line
31 # 4. Makes one and only one empty line at the end of each file
127 my $line;
131 while ($line = <FILE>) {
132 my $originalline = $line;
134 # Process line
136 # Remove from the end of the line spaces and return character
137 while ($line =~ /\s$/) {
138 chop($line);
142 for (my $i = 0; $i < length($line); $i++) {
143 if (substr($line, $i, 1) =~ /\t/) {
144 $line = substr($line, 0, $i) . $tabvalues[7 - ($i % 8)] . substr($line, $i + 1);
148 if (length($line) == 0) {
157 push(@content, $line);
160 if ($originalline ne ($line . "\n")) {