#!/usr/bin/perl

@files = <*>;
$x=0;
foreach $onefile (@files)
{
  $onefile =~ s/\n//;  
  $orig = $onefile;
  
  $onefile =~ s/\_//;

  `mv $orig $onefile\n`;
}