Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
Show name: TEST SHOW S
Show name: E
```