use strict;

$_ = 'America';
$_ = lc($_); s/[^a-z]//g;
my @m = split(//);

open(INP, 'pkjv.txt');
read(INP, $_, 3500000);
close(INP);

my ($n, $find);
for $n (2..100) {
    $find = join(".{$n}", @m);     
    if (m/($find)/g) {
        print pos() . " $n $1"; exit;
    }
}