Nice addition.

I would only change one thing:

while (defined ($_ = $tail->read)) {
    if (/$regex/) {
        print;
        alarm 2;
    }
}
[download]

That will prevent separator lines after reading a line that was filtered.