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