use warnings;
use strict;

my $file = "TEST SHOW S01E01";

if ( $file =~ m/(.*?)(\d.+?)$/ ) {  # modified line

    my $show = $1;
    print "Show name: ", $show, $/,
          "others: ", $2, $/;

}