35200 とか 420 とか、中途半端な数値の時に、一番上の数だけを生かして、他をゼロにしたい、というケース。
つまり、30000 とか 400 とかにしたいのね。

うーん。どうやってやるのがいいんでしょうか。おしえて！エロい人！

sub round {
    my $a = shift;
    $a =~ s{(\d)(\d+)}{$1 . '0' x length $2}e;
    return $a;
}

とりあえずの解はこんな感じ。駄目ぽ。てか、日記なんか書いてないで仕事しないとヤバス。

【2006年1月10日(火) 追記】
まちがってましたー。直しましたー。thx>通りすがりの人