andre@blogs-dev:~$ perl -e 'use Encode; use LWP::Simple; use Data::Dumper; my $html = get("http://ljsapo.blogspot.com/feeds/posts/full"); use XML::Simple; my $parsed = XMLin($html); my $text = $parsed->{"entry"}->{"tag:blogger.com,1999:blog-20104370.post-115522283622549946"}->{"content"}->{"content"}; print Dumper(Encode::is_utf8($text));'
$VAR1 = '';
andre@blogs-dev:~$

##</code><code>##

andre.cruz@blogs1:~$  perl -e 'use Encode; use LWP::Simple; use Data::Dumper; my $html = get("http://ljsapo.blogspot.com/feeds/posts/full"); use XML::Simple; my $parsed = XMLin($html); my $text = $parsed->{"entry"}->{"tag:blogger.com,1999:blog-20104370.post-115522283622549946"}->{"content"}->{"content"}; print Dumper(Encode::is_utf8($text));'
$VAR1 = '1';
andre.cruz@blogs1:~$

##</code><code>##

andre@blogs-dev:~$ perl -v

This is perl, v5.8.4 built for i386-linux-thread-multi

Copyright 1987-2004, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

andre@blogs-dev:~$

##</code><code>##

andre@blogs-dev:~$ locale
LANG=POSIX
LC_CTYPE="POSIX"
LC_NUMERIC="POSIX"
LC_TIME="POSIX"
LC_COLLATE="POSIX"
LC_MONETARY="POSIX"
LC_MESSAGES="POSIX"
LC_PAPER="POSIX"
LC_NAME="POSIX"
LC_ADDRESS="POSIX"
LC_TELEPHONE="POSIX"
LC_MEASUREMENT="POSIX"
LC_IDENTIFICATION="POSIX"
LC_ALL=
andre@blogs-dev:~$