$string1 = "I love to eat apples all day. I can eat apples every day! Apples are yummy!";
$string1 =~ s/apples/oranges/g;
print "The resulting value is : $string1 \n";

$string1 = "today is the best day of all";

######################################
# subroutine delete file
######################################

sub Delete
{

$out="cgi-bin/order/$ENV{'REMOTE_ADDR'}.txt";

open OUT, "$out" or die "Cannot open $out for write :$!";

read(OUT,$oldstuff,10000);

close OUT;

@changes=split(/n/,$oldstuff);

#!/usr/local/bin/perl
use strict;
foreach (glob ("C:\\Ram\\Bangalore\\Log\\*.log"))
{
	my $result = -M;
	if ($result > 4)
	{
		print "$_ is over 4 days old...removing\n";
		unlink $_;
	} 
}

#!/usr/local/bin/perl
use strict;
foreach (glob ("C:\\Ram\\Bangalore\\Log\\*.log"))
{
	my $result = -M;
	if ($result > 7)
	{
		print "$_ is over 7 days old..removing\n";
		unlink $_;
	} 
}