use strict;
use warnings;
my $DB = DBI::connect(....);
$DB->do(q{

   delete from comments where message like '%SPAM%'

});