use strict;
use warnings;

while (<STDIN>) {
    m/./ and print "success.\n";
    # ... (more code) ...
}