my $tempValue = "/home/madam/scripts/madam.tcl";
my $temp1 = "temp1";
my $temp2 = "temp2";
my @split = split( '/',$tempValue );
$split[$#split] = "$temp1.".$temp2.".$split[$#split]";
my $j = join( '/',@split );