if ( $line =~ m@Users of Product@ ) {
       $line =~ m@Product(\d+):@;  # match and capture product number 
       $product = $1l