All pastes #233178 Raw Edit

Mine

public text v1 · immutable
·published 2006-11-01 20:20 UTC
rendered paste body
#!/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";
}