my $regex = qr/
    #ganz viel Zeug hier, so eine Seite lang
    .+
/x;
    # Build your WHERE using an SQL::Abstract structure:
    { name => { like => $regex } }