foreach my $watch_string ( $schema->resultset('WatchString')->all )

# Could be...

my $ws = $schema->resultset('WatchString')
    ->search({}, { cache => 1 });

while( my $line <INPUT> )
{
    foreach my $watch_string ( $ws->all )