!#/usr/bin/perl
print "Content-type: text/html\n\n";

$string="I have 5 + 6 Rupees and 6/3 paise";
print "$string\n";


$string=~ s{(\d+\s*[+*/-]\s*\d+)}{$1}eegi;
print "$string\n";


$string="India Chennai New yark";
print "$string\n";

$string=~ s{(\b\w+\b)}{su($1)}eg;
print "$string\n";

sub su{
	$match=shift;
	$match=~s{(\w+)}{uc($1)}gei;
	return $match;
	
	}