Select Code to Download

1.100.10
2.100.10
3.100.10

use strict;
use warnings;
...
    my @F = split /\./, $_;
    print join ('.', reverse @F) . "\n"
}

10.100.1
10.100.2
10.100.3