if($area==1){   $area_out = $calling_number =~ /(9*0*)(\S+)/ && $2 gt $start_nr && $2 lt $end_nr;
                $area_in = $dialed_number =~ /(9*0*)(\S+)/ && $2 gt $start_nr && $2 lt $end_nr;
        }
if($area==2){...}