$SYSLOG[$_] =~ $main_re and splice @SYSLOG, $_, 1 for 0 .. $#SYSLOG; #### @SYSLOG = grep !/$main_re/, @SYSLOG;