#!/usr/bin/perl -p0
s/^.*font-size:.*\n//mg;
s/ width=\d+//g;
s/ style='[^']*'//g;
@del=(" --filter=0:0", " --keyint=250", " --min-keyint=25", " --scenecut=40", " --qpmin=10", " --qpmax=51", " --qpstep=4", " --threads=1", " --merange=16", " --b-bias=0", " --ipratio=1.40", " *--pbratio=1.30", " -o foo");
%map=("--bitrate="=>"-B", "--subme="=>"-m", "--ref="=>"-r", "--bframes="=>"-b", "--weightb"=>"-w", "--analyse="=>"-A", "--8x8dct"=>"-8");
foreach $k (@del) {s/$k//g}
foreach $k (keys %map) {s/$k/$map{$k}/g}