#!usr/bin/perl
use CGI;
$res = "aaaaubbbbuooooo";
@rest = split /u/,$res;
$restLength = length(@rest);
print "Content-type: text/html\n\n";
print "restLength : $restLength";
for ($i=0;$i<length(@rest);$i++){
    print "@rest[$i]";
}