#!/usr/bin/perl

use strict;
use warnings qw(all);


my $location;
my $summary;


while (<>) {
    next unless ($location) = /^LOCATION:(.{4})/;
    print $location."\n";

    next unless ($summary) = /^SUMMARY:(.*)\\n.*/;
    print $summary."\n";
}