Select Code to Download

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 (?, ?)