foreach my $in_fname (@ARGV) {
  ...
}

##</code><code>##

  $input_txt =~ s/\<script.*?\<\/script\>//igs; # remove code
  $input_txt =~ s/\<.*?\>//gs; # remove html tags
  $input_txt =~ s/\&nbsp;/ /gs; # &nbsp -> space
  $input_txt =~ s/\s{2,}/ /gs; # Remove extra spaces
  print $input_txt;

##</code><code>##

  <a href="" onClick="alert('&lt; foo! &gt;');">
  not:
  <a href="" onClick="alert('< foo! >');"> Invalid HTML!

##</code><code>##

  while( $input_txt =~ s/\<.*?\>//gs ) {};