Select Code to Download

for( map{ s/\\*([^\\]+)\.avi\n/$1/; $_ } `cmd /c dir /s /b *.avi` ) {
   $inventory{$1} = $2 if /^(.*?)s\d{1,2}[xe]\d{1,2})/i);
...
{
   $inventory{$1} = $2 if /^(.*?)s\d{1,2}[xe]\d{1,2})/i);
}