sub is_empty {
  my $line = shift;
  $line eq ''
}