#!/usr/bin/env perl

use warnings;
use strict;

my $last_line = "";
while (<>) {
  if (/Successfully registered/) {
    print $last_line;
    print;
    for (1..5) {
      $_ = <>; print;
    }
  } elsif (/Attempting to register/) {
    print $last_line;
    print;
    for (1..2) {
      $_ = <>; print;
    }
  }
}