Help for this page
use warnings; use strict; ... while($data =~ /prepare_cached\('(.+?)'\)= DBIx/gs) { print "(--> $1 <--\n)"; }
$ perl tst.pl SELECT trip_id, rate, expires ... INSERT INTO trip_engine (trip_id, engine) VALUES (?, ?)