if (/^(\S+\s+)(\S+)(\s.*)/) { 
        print $1 . log10($2) . $3 . "\n"; 
}

##</code><code>##

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

##</code><code>##

my($name, @num) = split " "; 
print $name; 
for my $num (@num) { 
        print " " . log10($num); 
} 
print "\n";

##</code><code>##

my($name, @num) = split " "; 
my @log10; for my $num (@num) { 
        push @log10, log10($num); 
} 
print $name, " ", join(" ", @log10), "\n";