Also with the caveat that the true variation in the data is unknown, here's another approach:
>perl -wMstrict -le "use Regexp::Common; ;; my $s = '((113000.00 Nos.) + (250000.00 Nos.) ++ (1) )'; ;; my $extract = join ' ', grep defined, $s =~ m{ ($RE{num}{real}) | ([+])+ }xmsg ; print qq{'$extract'}; " '113000.00 + 250000.00 + 1'
(And see also perlretut and perlrequick.)
In reply to Re: regexp help
by AnomalousMonk
in thread regexp help
by upaksh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |