http://www.perlmonks.org?node_id=18088


in reply to RE: Odd file rename
in thread Odd file rename

I really can't see your problem with that. Try: 
my @fileList=("F1234","F2345","F3456");
foreach $oldname (@fileList) {
  $newname=$oldname;
  $newname=~ s/^./B/i;
  rename($oldname,$newname)
};

[download]
(credits for regexp to lhoward)

/brother t0mas

In Section Seekers of Perl Wisdom