#!/usr/bin/perl

use URI::Escape;
use Encode;
require LWP::UserAgent;

my $escape = uri_escape(join('. ', @ARGV));

 
my $ua = LWP::UserAgent->new;
 
my $response = $ua->get("http://babelfish.altavista.com/tr?trtext=$escape&lp=en_ja");
 
if ($response->is_success) {
	$result = $response->content;  # or whatever
} else {
	die $response->status_line;
}
 
Encode::_utf8_on( $result );

my ($translation) = $result =~ /\Q<td bgcolor=white class=s><div style=padding:10px;>\E(.+?)\Q<\/div>\E/; 
 
$original = $translation;
$translation=~s/([^[:ascii:]])/sprintf("\\x{%.4x}",ord $1)/ge;

print $translation ."\n". length($original) ."\n". ord(substr($original,0,1));