Parameters for subroutines are stored in @_.

You should place a $_ = shift; at the beginning of change.

Or even better:

sub change {
  my $file = shift;

  if (-f $file && $file =~ /\.html$/) {

.
.
.
[download]