open my $file ,"+<","reg" or die $!;

while (my $line = <$file>) {

  chomp $line;
  print "$line\n"

  }