echo '[part1-date] log - [..part2..] [..part3..] part4' | perl -ne 'my @r = split (/[[\]]/, $_); print @r[1,3,6];'