in reply to Regex for last digit should not be "2"

if( $Folder =~ m/M2000AAMFAD201[013-9]\z/ ) {...

Dave