Select Code to Download

use strict;
use warnings;
...
  my ($ip) = $line =~ /(\d+\.\d+\.\d+\.\d+)/;
  system("ssh a.AS1 traceroute $ip > file$ip.txt");
}