#!/usr/local/bin/perl
 
use warnings;
use strict; $|++;
 
use WWW::Mechanize;
 
#use encoding 'latin1';
#use encoding 'ascii';
#use encoding 'UTF-8';
 
my $mech = WWW::Mechanize->new();
 
my $url = "http://www.undeerc.org/wind/winddb/top.asp?TableName=tblDeertrailCO";
 
$mech->get( $url );
 
print "1" x 70, "\n";
print "|", $mech->content, "|\n";
       
my $result = $mech->content(format => 'text');
$result =~ s/[\r\n]//g;
 
print "2" x 70, "\n";
print "|$result|\n";
 
#$result .= "";
$result =~ s/\s+/ /g;
 
print "3" x 70, "\n";
print "|$result|\n";