#!/usr/bin/perl -w

use strict;

while(<>) {
	chomp;
	$_ =~ s/^(.*)\W+IN\W+A\W+(.*)$/$1 $2/;
	$_ =~ s/( )+/ /g;
	my( $nameinfo, $ip ) = split( / /, $_ );
	my( $domain, $host ) = split( /:/, $nameinfo );
	$domain =~ s/(.*)\.db\./$1/;
	$ip =~ s/(\d+\.\d+\.\d+)\.(\d+)$/$1 $2/;
	my( $network, $lastoctet ) = split( / /, $ip );
	printf( "%s\t\tIN\tPTR\t%s\.%s\n", $lastoctet, $host, $domain );
}