#!/usr/bin/perl
use strict;
use warnings;
use File::Basename qw( fileparse );
 
my $tempvalue = 'c:/reports/check/test.txt';
my ($name, $path) = fileparse($tempvalue);
my $designvalue = $path . "design." . $name;
print "'$tempvalue' => '$designvalue'\n";
 
__END__
 
'c:/reports/check/test.txt' => 'c:/reports/check/design.test.txt'