Help for this page
knoppix@Microknoppix:~$ perl -E ' > $str = q{3 * (4 + 5) / (6 - 7)}; ... digit: 5 * ( + ) / ( - ) knoppix@Microknoppix:~$