perl -n -e "
/^(([a-zA-Z]+\s+[0-9]+\s+[0-9]+[:][0-9]+[:][0-9]+)\s+([0-9a-zA-Z-]+)\s+([^:[]+)(\[.*?\])?\s*[:]\s*(?:([^:]*)[:])?\s*(.*))\$/ && ( \$m=(\$1,\$2,\$3,\$4,\$5,\$6,\$7) )  && print \$3
" "$SYSLOG"


##</code><code>##

perl -n -e "
/^(([a-zA-Z]+\s+[0-9]+\s+[0-9]+[:][0-9]+[:][0-9]+)\s+([0-9a-zA-Z-]+)\s+([^:[]+)(\[.*?\])?\s*[:]\s*(?:([^:]*)[:])?\s*(.*))\$/ && ( $3 =~ /^systemname$/) && print \$3
" "$SYSLOG"

##</code><code>##

perl -n -e "
/^(([a-zA-Z]+\s+[0-9]+\s+[0-9]+[:][0-9]+[:][0-9]+)\s+([0-9a-zA-Z-]+)\s+([^:[]+)(\[.*?\])?\s*[:]\s*(?:([^:]*)[:])?\s*(.*))\$/ && ( \$m=(\$1,\$2,\$3,\$4,\$5,\$6,\$7) )  && ( $3 =~ /^systemname$/) && print \$m[3]" "$SYSLOG"