#!/usr/bin/perl -w
use strict;

while(<>) {
  chomp;
  my $kut=$_;
  $_=~s/ /_/g;
  print 'mv "'.$kut.'" '.$_."\n";
}
