use warnings;

#!/usr/pkg/bin/perl
#
use warnings;
use strict;

sub printlines {
my $text = shift;
my @lines = split(/\n/,$text);
my $serv_string = "\tnull\ttext\t70";

foreach (@lines) {

my $tmpline = $_;
$tmpline =~ s/\t/ /g;
print "i$tmpline$serv_string\n";

}

}

my $out = qx(/usr/pkg/bin/lynx -dump gopher://gopher.floodgap.com/0/groundhog/usa/forecast?ct%203);
my $dttime = $1 if ( $out =~ m{(^.+? (EST|EDT) .+$)}m );
printlines("Latest Weather Report for Tolland, CT Area\nAs of $dttime:\n ");
while ($out =~ m/^\.(.+?)\.{3}(.+?)\.\s*$/gms) {
my $header = uc $1;
my $body = lc $2;
$body = ucfirst $body;
printlines("$header:");
printlines("$body\n ");
}