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

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

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