--- /dev/null
+#!/usr/bin/bash
+
+help() {
+ cat <<EOF
+$0 <list of debian/control files to modify>
+
+Example:
+
+$0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/control
+
+EOF
+
+}
+if [ $# -eq 0 ]; then
+ help
+fi
+
+for i in $@; do
+ perl -pi -e 's/debhelper\s*\(\s*>=\s*(6|7)\s*\)/debhelper7/g;
+s/perl\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl\s*\(\s*>=\s*5\.9[^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.9[^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl\s*\(\s*>=\s*5\.10[^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.10[^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl-doc\s*(\([^\)]*\))?\s*,?//g;
+' $i
+done