($x,$z) = $filename =~ /(\d\d)-(\d\d)/;