for my $folder ($imap->folders) {
        $imap->select($folder) or warn "Error: $imap->LastError\n";
        #$folder =~ s/INBOX$//g; # If I try this, mail::IMAPClient tries to create subfolder and exits.
        $folder =~ s/^$prefix1/$prefix2/g;
        $folder =~ s/$sep1/$sep2/g;
        $imap->migrate( $imap2, "ALL", $folder ) or warn "Error: $imap->LastError\n";
}

##</code><code>##

$folder =~ s/INBOX$//g