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