($status) = $folder =~ m/(FINAL|DRAFT)/;

##</code><code>##

$folder =~ s/(FINAL|DRAFT)//;
$status=$1;