Programming

#!/usr/bin/perl

$input = `Cat /cygdrive/c/Windows/System32/test11.txt | grep -v 'SYN Stealth'`;
chomp input;
$output =" /cygdrive/c/Users/bpaul/Desktop/194.csv ";
if (! -e "$output")
{
`touch $output`;
}
open (OUTPUTFILE, ">$output") || die "Can't Open file $output";
print OUTPUTFILE "$input\n";
close (OUTPUTFILE);
Here is a piece of my file 
      Nmap scan report for 69.25.194.2       Host is up   (0.072s  latency).       Not shown:   9992 filtered ports       PORT     STATE     SERVICE       25/tcp   open     smtp   
      80/tcp   open     http   
      82/tcp   open     xfer   
      443/tcp  open 
    https       4443/tcp   closed 
pharos        5666/tcp   closed 
nrpe       8080/tcp   closed 
http-proxy       9443/tcp    closed tungsten-https

  Server,port,protocol,random,random,random
ns1,25,tcp,stuff,stuff,stuff

#!/usr/bin/perl

$input = `Cat /cygdrive/c/Windows/System32/test11.txt | grep -v 'SYN Stealth'`;
chomp input;
$output =" /cygdrive/c/Users/bpaul/Desktop/194.csv ";
if (! -e "$output")
{
`touch $output`;
}
open (OUTPUTFILE, ">$output") || die "Can't Open file $output";
print OUTPUTFILE "$input\n";
close (OUTPUTFILE);
Here is a piece of my file 
      Nmap scan report for 69.25.194.2       Host is up   (0.072s  latency).       Not shown:   9992 filtered ports       PORT     STATE     SERVICE       25/tcp   open     smtp   
      80/tcp   open     http   
      82/tcp   open     xfer   
      443/tcp  open 
    https       4443/tcp   closed 
pharos        5666/tcp   closed 
nrpe       8080/tcp   closed 
http-proxy       9443/tcp    closed tungsten-https

Server,port,protocol,random,random,random
ns1,25,tcp,stuff,stuff,stuff