use strict;
use warnings;

use LWP::Simple;

my $url = 'http://weather.noaa.gov/pub/data/forecasts/zone/pa/paz049.txt';

my @content = grep s/^\.//, split "\n", get $url
  or die "Couldn't get it!\n";

print join "\n", @content;