my($name, $num, $rest) = split " ", $_, 3; 
print $name . " " . log10($num) . " " . $rest;