my $number;
if ( ($number) = $date =~ m/([\d,]+)/ ) {
   $number =~ s/,//g;
}