#!/usr/bin/perl

@files = <*.jpg>;

foreach $onefile (@files)
{

  $orig = $onefile;
  
  $onefile =~ s/_//g;
    
  $onefile =~ s/\n//g;
      
  `mv $orig $onefile`;

}