#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1148205

use strict;
use warnings;

while(<DATA>)
  {
  my $pw = reverse map { split //, 999 - $_ } /\.(\d+)/g;
  print $pw;
  }

# want
# 199699309
# 199478688
__DATA__
10.96.3.8
10.113.125.8