Lines Matching refs:line
133 while (my $line = <IN>)
135 if ($line =~ /$regex/)
142 chomp( $line);
143 print "$line\n";
144 push( @result, $line);
151 if ($line =~ /$addregex[0]/)
161 if ($line =~ /$addregex[$i]/)
168 chomp( $line);
169 print "$line\n";
170 push( @result, $line);
173 if ($line =~ /$arecloser/)
352 while (my $line = <LD>)
354 if ($line =~ /<(Language|Country)>/) {
357 print $line; }
358 if ($line =~ /<\/(Language|Country)>/) {