>>11
$arabic{'第一条'} = 1;
から、
$arabic{'第九百九十九条'} = 999;
まで入れといて、
対象文字列 $joubunn に対して置換してみるとか？

$joubunn =~ /$regexp/$arabic{$regexp}/ foreach my $regexp (keys %arabic);

効率悪そうな悪寒。。。