my ($match) = $string =~ /$regex/;

##</code><code>##

perl -ne '/$regex/, $SUM += $1; END { print $SUM }' file.txt