#!/usr/bin/perl
use strict;
use warnings;
 
my $string = do {local $/;<DATA>};
my $content = $1 if $string =~ /<TOPICS>(.*?)<\/REUTERS>/s;
print $content, "\n";
 
 
__DATA__
<REUTERS TOPICS="YES" LEWISSPLIT=" TRAIN" CGISPLIT="TRAINING- SET" OLDID="16409" NEWID="1089" >
<DATE> 3-MAR-1987 11:12:24.65< /DATE>
<TOPICS></TOPICS>
<PLACES><D>canada< /D></PLACES>
<PEOPLE></PEOPLE>
<ORGS></ORGS>
<EXCHANGES>< /EXCHANGES>
<COMPANIES>< /COMPANIES>
Scotia Mortgage Corp is issuing a 100 mln
Canadian dlr eurobond due April 9, 1992 paying 8-3/4 pct and
priced at 100-3/4 pct, lead manager Wood Gundy Ltd said.
The payment date is April 8 and there will be a long first
coupon period.
Reuter
</REUTERS>
&#3;</BODY>< /TEXT>