Select Code to Download

my $data = qq| T  <- prepare_cached('SELECT trip_id, rate, expires
FROM   trip_exchange_rates
...
while($data =~ /prepare_cached\('(.+?)'\)= DBIx/gs) {
    print "(--> $1 <--\n)";
}

(--> SELECT trip_id, rate, expires
FROM   trip_exchange_rates
...
VALUES (?, ?)
 <--
)