title: Rename File with perl
body: <p>I want to rename files with Perl. <code>Example_22VOO0142321.xml</code> ⇒ <code>22VOO0142321.xml</code>
  the numbers are different but example_ has to leave. How can I remove example_ from the filenames?</p>
  <pre><code>opendir( D, &quot;$source_dir&quot; ) or mail_die(&quot;Fout bij openen van $source_dir : $!&quot;);
  
  my @allfiles = grep { -f &quot;$source_dir/$_&quot; } readdir D;
  
  closedir D;
  
  my @examplefiles = grep { /example_.+(\.xml)$/i } @allfiles;  
  
  my $file_name;
  foreach $file_name (@examplefiles) {
     ??
  }
  </code></pre>