print map substr($_, 0, 2),  grep  m/\S/,  <$FH>;