my ($flags)    = $filename  =~ / \. (\d+) $ /x;