print "$_: ", m[[nl]tv\.(?:com\.wid-prl\.)?com/(?:business|very-own)/] ? 'matches' : 'nomatch' 
for qw[
 ntv.com/very-own/
 ntv.com/business/
 ntv.com.wid-prl.com/very-own/
 ltv.com/very-own/
];;
ntv.com/very-own/:  matches
ntv.com/business/:  matches
ntv.com.wid-prl.com/very-own/:  matches
ltv.com/very-own/:  matches