Select Code to Download

% perl -MO=Deparse movies > movies1
% vi movies1
...
\$o+=\$A+8}];

s[((?{$a.=$+})\s?(\S*)\s?)*][$a =~ s/Z/ /g; $a; ]see;

s[((?{$a.=$+})\s?(\S*)\s?)*][$a =~ s/Z/ /g; $a; ]see;

% perl -MO=Deparse movies | sed s/see/se\;print/ | perl | sed s/\;/\;\
+\n/g

...
$o=4;
for(1..$B){print"00db".pack"LLL",16,$o,$A;
$o+=$A+8}