hello and this is one of my first scripts, which are not executable at present.
one year ago, there was no problem to use this script as shell-script (not yet in perl) like here :

#!/bin/bash
awk '{
for (i = 1; i = NF; i++)
if ($i ~ /^SRC=/)
print substr($i, 5)
}' /var/log/syslog | sort -u | while read ip;
do
printf ' INVALID STATE ' && printf ' === %s ===\n' "$ip"
whois "$ip" >> log-002.txt;
done

I have used this script to filter syslog output after connections who are knocking…