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