$ tail -f /var/log/mail | perl -ne 'print "4\n" if /pro/'