1 #!/usr/bin/perl
  2 
  3 open(FH, "<output.txt");
  4 while(<FH>)
  5   {
  6     chomp($_);
  7     #parse $_ somehow ...
  8     print("current line: $_ \n");
  9   }
 10 close(FH);