#!/usr/bin/expect while {[gets stdin line] >= 0} { if {[regexp {([[:xdigit:]]{2}:?){6}} $line]} { puts $line } }