sub { # get possible args # initialize hash # open file # while file { # split # possible clean up code # hash } # close file # possible counter # possible write to log # return hash } #### get_data( pre => undef, while => '$_ =~ tr/ / /s;', post => 'write_log("Found $count instances");', );