perl -e '$a = "1,234,340 views";print "$1\n" if($a =~ /^((?:\d{1,3})?(?:,\d{3})*) views$/);'