my $tempvalue = "c:/reports/check/test.txt"; my @split = split( '/',$tempValue ); $split[$#split] = $/"design.".$1/e; print "\t",join( '/',@split ),"\; \\\n" ;