The format of the line could change, so the best way to take what you need is to just go for the number directly following the of:

$text =~ /of[^\d,]*([\d,]+)/;
print $1;
[download]