use Lingua::EN::Tagger;
use Data::Dumper; 
my $p = new Lingua::EN::Tagger;

my $text='The German luxury car maker Mercedes-Benz India has announced that in 2010, the company sold 5,819 cars, indicating a growth of 80% over 2009';
$text =~ s/\\/\\\\/g;
   $text =~ s/'/\\'/g;
    $text =~ s/"/\\"/g;
    $text =~ s/\\0/\\\\0/g;
#print $text;
$text =~ s/\\//g;
        my $tagger = new Lingua::EN::Tagger;
	my $tag_text= $tagger->add_tags($text);
	#print $tag_text;
	my @words = split (/\s+/sg, $tag_text);
        chomp(@words);
	#print Dumper(@words);
	$w='Growthcf of country';
	$w =~ s/\s([^ ]*?)$//;
	print $w;
