my $ws = $schema->resultset('WatchString');
$ws->result_class('DBIx::Class::ResultClass::HashRefInflator');

my @ws = $ws->all;
$_->{match_string} = qr/$_->{match_string}/ for @ws;

while( my $line <INPUT> )
{
    foreach my $ws ( @ws )
    {
        if( $line =~ $ws->{match_re} ) # all hashrefs now, no objects.
        {