>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'