gistfile1.txt

raw_interfaces=$(ifconfig |
perl -ane '
    END{print "\042", join("\042 \042", @a), "\042\n"}
    $a[$c++] = $1 if /^(\w+)/;
')
interfaces=($raw_interfaces)
for interface in "${interfaces[@]}"
do
        address=$(ifconfig `echo $interface | sed "s/\"//g"` | grep inet)
        if [ $? -eq 0 ]; then
                echo "Interface $interface"
                echo $address
        fi
done