#!/usr/bin/perl
use warnings;
use strict;

my $foldername = "Test1/Test2";
my @folders = split /\//,$foldername;

for (0 .. $#folders) {
mkdir -p $folders[$_];
chdir $folders[$_];
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

my $foldername = "Test1/Test2";
my @folders = split /\/|\\/, $foldername;

map { mkdir $_; chdir $_; } @folders;