#!/usr/bin/perl # converts extended SQL inserts to single statements if (/^(INSERT.+?VALUES.*?)\(/) { $a=$1; s/\\'\''/'\'\''/g; s/\\n/\n/g; s/\),\(/\);\n$a\(/g; }