sub remove_repeated {
  my ($file_name) = @_;
  my %seen;
  local @ARGV = $file_name;
  local $^I = ".bak";
  while(<>){
    s/^\s+//;
    s/\s*$/\n/;
    next if $seen{$_}++;
    print;
  }
}