$ perl -Mstrict -Mwarnings -E ' my @urls = qw{ https://www.abc.com.wi.pr.com/ https://www.abc.com/ https://www.def.com.wi.pr.com/ https://www.wt.com.wi.pr.com/ }; for (@urls) { say unless /wt/; } ' https://www.abc.com.wi.pr.com/ https://www.abc.com/ https://www.def.com.wi.pr.com/