#!/usr/bin/perl

print "Proto NATed Address                  Destination Address            State\n";
foreach $line ( `conntrack -j -L 2> /dev/null` ) {
    chomp( $line );
    if( $line =~/(\w+) .* (\w+) src=(\d+.\d+.\d+.\d+) .* sport=(\d+) .* src=(\d+.\d+.\d+.\d+) .* sport=(\d+)/ )
        {
                print "$1   $3:$4             $5:$6             $2\n";
        }
        else
        {
                print "Parse error! orig line = $line";
        }
}