Here is one way:

print map { $_->[1] } sort {$a->[0] <=> $b->[0] } map { [ /fwlog\.(\d+
+)/, $_ ] } @data;
[download]