for (@filedata) { next if not m/\d+\.\.\d+/; @spans = m/(\d+\.\.\d+)/g; print "@spans\n"; }