#!/usr/local/bin/perl

## Get a estimate of length ratio

use strict;
use warnings;

my $uFileName = shift;
my $eFileName = shift;

open(UFILE, $uFileName) or die("Couldn't open the file $uFileName\n");
open(EFILE, $eFileName) or die("Couldn't open the file $eFileName\n");

while (my $urd = <UFILE>){
	my $eng = <EFILE>;
	chomp($urd);
	chomp($eng);
	
	my @ul = split /\s+/,$urd;
	my @el = split /\s+/,$eng;
	my $r = ($#el+1)/($#ul+1) if($#ul > -1);
	print "$#el $r\n" if($#el > -1);
}
close UFILE;
close EFILE;