Select Code to Download

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

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->{"e
+ntry"}->{"tag:blogger.com,1999:blog-20104370.post-115522283622549946"
+}->{"content"}->{"content"}; print Dumper(Encode::is_utf8($text));'
$VAR1 = '1';
andre.cruz@blogs1:~$

andre@blogs-dev:~$ perl -v

...
Internet, point your browser at http://www.perl.com/, the Perl Home Pa
+ge.

andre@blogs-dev:~$

andre@blogs-dev:~$ locale
LANG=POSIX
...
LC_IDENTIFICATION="POSIX"
LC_ALL=
andre@blogs-dev:~$