C:\> 1025454.pl
Show name: TEST SHOW S
Show rest: 01E01

##</code><code>##

if(my ($show, $file) = $file =~ /(.*?)\s([A-Z]\d+.*)/) {
    print "Show name: $show\n";
    print "Show rest: $file\n";
}

##</code><code>##

Show name: TEST SHOW
Show rest: S01E01