sub c3 { print "Evaluating condition 3\n"; /gamma/; }

while (<DATA>) {
    chomp;
    mff(qr/alpha/ => \&s1,
        qr/beta/  => \&s2,
        \&c3      => \&s3,
        qr/omega/         ) or print "*:$_\n";
}