CHANGE_FILE: {
  my $backup = "${filename}~";
  rename $filename, $backup;
  open my $b, '<', $backup;
  open my $f, '>', $filename;
  select $filename;
  s/>//g, print while <$backup>
}