for(@files) { $match = (@_) = $_ =~ /(.{8}\-.{3}\-i32)/g; @stats = pop(@_); print "@stats\n"; } [download]
In reply to Matching last value in reg expression by Anonymous Monk