perl -F"[:;]" -lane ' print "$_" for map { /^\s*(\S+)/; $_ = $1 } @F; '