#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  if ( /do_add/ ) {
    print "Wow!  Got do_add - $_";
  } else {
    print "Awwww - no do_add - $_";
  }
}

__DATA__
do_taxes
do_things
do_add
do_wop