#!/usr/bin/perl/

use strict;
use warnings;

my $i;
my $j;
my $k;
my $l;
my $id = "AC";

my $moved;

for ($i=2; $i<=3; $i++) {
my $j = sprintf ("%04d", $i);
  for ($k=1; $k<=3; $k++) {
  my $l = sprintf ("%05d", $k);
  my $path;
  $path = "/home/results/initial/$id$j/F${l}";
  chdir "$path";
  /MV(\d{4})/;  
  $moved = $1;
  print "$moved\n";
  }
 }