if (($ln =~ $reg5 and $ln=~ $reg4 and ($ln !~ $reg1 or $ln =~ $reg2)))
{
<some code here...>
}

if (($ln =~ $reg5 and $ln !~ $reg4 and $ln !~ $reg1)) 
{
<some code here...>
}