open my $REPLAY_FILE, '+<', $rpl or die $!;
while (my $line = <$REPLAY_FILE>) {
  #... do stuff with $line
}
close $REPLAY_FILE;