use Data::Dumper;
$sentence='The E-Class had the highest takers, numbering around 2,490 cars, and the C-Class sold 2,070. In its SUV range that comprises the M-Class, GL-Class and the R-Class, 523 cars were sold.A.R.Rahman is a gud composer.';
 my @temp = $sentence =~ /[\.]?(.*?\s\d{0,}[,]*\w{2,}[`'\)\s"]*)\.([\w{1,}]?)/imsgx;
print Dumper(@temp);
