@files = sort { my ($ad) = ( $a =~ /fwlog\.(\d+)\w+/ ); 
                my ($bd) = ( $b =~ /fwlog\.(\d+)\w+/ ); 
                $ad <=> $bd } @files;