Select Code to Download

perl -we 'use 5.010; use XML::Twig; binmode STDOUT, "encoding(iso8859-
+2)"; $twig = XML::Twig->new->parsefile_html($ARGV[0]); say $twig->roo
+t->text;' somefile.html