system 'perl', '-pi', '-e', 's/>//g', $filename;

##</code><code>##

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