sub DoBeforeAfter { my (@FILE) = @_; my ($retval); foreach $line (@FILE) { $retval .= "$CONFIG{'before'}$line$CONFIG{'after'}"; } chomp( $retval ); return $retval; }