#!/usr/bin/perl -w

use strict;
use Socket;

my $zone_filename = 'zone.file';


open (ZONE, $zone_filename) || die "Can't open $zone_filename: $!";

while(<ZONE>)
{
    if(/^[a-zA-Z0-9-\.\*]+\s+in\s+\w+\s+(\d+)\.(\d+)\.(\d+)\.(\d+)[\$\s;]/i) 
    {
        print "$4.$3.$2.$1.in-addr.arpa PTR\n";
    }else {next;};
}