use strict;
use warnings;

open FILE, '<', "dns.txt" or die $!;

while (my $line = <FILE>) {
  my ($ip) = $line =~ /(\d+\.\d+\.\d+\.\d+)/;
  system("ssh a.AS1 traceroute $ip > file$ip.txt");
}