Rename Filename in perl

foreach my $o (glob("??YYF*")) {
  ($n=$o)=~s/YYF/XXY/;
  rename $o,$n;
}