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