if ( $line =~ m@$tcp_deny@ ) {

... more stuff below