Select Code to Download

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"

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 =~ /^s
+ystemname$/) && print \$3
" "$SYSLOG"

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"