ｽﾏｿ、396は忘れて。
ところで元の配列を壊さずに一部を取り出す一番効率の良い方法ってどんなんだっけ…。

@URI = map { substr $_, 13 } grep { /^Location_URL=(.*)/ } @list; # じゃないよな…