+ 192.168.89.1   acmeorp.acme.com
        |___    21  File Transfer Protocol [Control]
* + 192.168.31.3   ftp.acme.com
        |___    21  File Transfer Protocol [Control]
                |___ 220 ftp.acme.com FTP server ready...
* + 192.168.33.19   acmeftp.acme.com
        |___    21  File Transfer Protocol [Control]
                |___ 220-acme Secure FTP Server..    WarFTPd 1.71.02 (Feb 14 2000) Ready..    (C)opyright 1996 - 2000 by Jarle (jgaa) Aase - all righ
* + 192.168.29.21   orcweb.acme.com
        |___    21  File Transfer Protocol [Control]
                |___ 220 sandbox FTP server (Version 1.1.214.7 Thu Aug 10 09:57:38 GMT 2000) ready...
* + 192.168.11.22   commerce.acme.com
        |___    21  File Transfer Protocol [Control]
                |___ 220 commerce Microsoft FTP Service (Version 4.0)...
* + 192.168.19.24   webapp.acme.com
        |___    21  File Transfer Protocol [Control]
                |___ 220 WEBAPP1PRI Microsoft FTP Service (Version 5.0)...

##</code><code>##


#!/usr/bin/perl -w
 
use strict;
 
my $infile = './ftp.txt';
my $outfile = './fileout.csv';
my (@ips, @names, @ports, @service, @desc);
 
open INFILE, "$infile" or die "Can't open $infile: $!\n";
 
while (<INFILE>){
  chomp;
  next unless (/\*/);
  my ($ip, $name, $port, $service, $desc) = (split /\s+/)[2,3,6];
  push (@ips, $ip); 
  push (@names, $name);
  push (@ports, $port);
}
 
close INFILE;
 
foreach (@ips){ 
 print "Here are the ip's:$_\n"; 
} 
 
foreach (@names){ 
 print "Here are the server names:$_\n"; 
} 
 
foreach (@ports){ 
 print "Here are the ports:$_\n";
}