But you don't *have* to use
File::Basename if you didn't want to you :o)
If you know you're not going to be changing platforms or needing the flexibility of a directory path splitter that handles different directory seperator characters (i.e. \ on Windows and / on Unix etc) and just want something fast and simple you could use something like this instead:
my $tempvalue = "c:/reports/check/test.txt";
my @split = split( '/', $tempvalue );
my $file = pop @split;
print "\t", join( '/', @split ), "/design.$file\n";