06/12/26 01:28:48 BE:808949186-2BP(333)
$percent = 65;
$wari = int($percent / 10);
$bu = ($percent % 10);
こんな感じじゃないｽか？
後は応用とかしてください。
splitとどっちが早いかな・・・？
文字列として扱うより、数値のまま扱った方がいいのかも。
$parcent =~ s/([\d])([\d])(\d)$/$1割$2分$3厘/;
とか厳しそうな手もあったり無かったり･･･、後はｴﾛい人が降臨した時に聞いてみてください。
おいらじゃこれが限界ｽ