my $file = "TEST SHOW S01E01";
if(my ($show, $file) = $file =~ /(.*?)(\d+.*)/) {
    print "Show name: $show\n";
    print "Show rest: $file\n";
}