#!/usr/bin/perl -l

use strict;
use warnings qw(all);

#unshift "";


my $loc = "";
my $sum = "";


while (<>) {
    if(/^LOCATION:(.+)/) {
        $loc = $1;
        next;
    }

    if(/^SUMMARY:(.+)\\n.*/) {
        $sum = $1;
        print "SUMMARY: ".$loc.": ".$sum;
        next;
    }

    print;
}