#!/usr/bin/perl

while(<STDIN>) {
  chomp;
  $f1 = $_;
#  $f2 = lcfirst($f1);
#  next if($f1 eq $f2);
  next unless($f1 =~ /.*\.htm$/);
  print "mv $f1 ${f1}l\n";
}