my @fileList=("F1234","F2345","F3456");
foreach $oldname (@fileList) {
  $newname=$oldname;
  $newname=~ s/^./B/i;
  rename($oldname,$newname)
};