use Roman; $calc = "II + II"; $calc =~ s/([MDCLXVI]+)/isroman($1) ? arabic($1) : $1/; print eval $calc; [download]
2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$ [download]
In reply to Re: Re: Adding 2 + 2 by Juerd in thread Adding 2 + 2 by merlyn