Hallo,
so klappts...
$var =~ s/(\d\d)(?=\d)(?!\d*,)/$1,/g;
@arr = split(',', $var);
Spitze Helmut! Darf ich das auf die PerlBase tun?
Gruss, Rolf
--
50 Millionen Deutsche können nicht richtig HTML!
50 Millionen Deutsche können nicht richtig HTML!