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

##</code><code>##

Show name: TEST SHOW S
Show name: E