Help for this page

Select Code to Download


  1. or download this
    C:\> 1025454.pl
Show name: TEST SHOW S
Show rest: 01E01
  2. or download this
    if(my ($show, $file) = $file =~ /(.*?)\s([A-Z]\d+.*)/) {
    print "Show name: $show\n";
    print "Show rest: $file\n";
}
  3. or download this
    Show name: TEST SHOW
Show rest: S01E01