s!(..)/(.*)!$2/$1! for @old; #### my @new = map {s!(..)/(.*)!$2/$1!;$_} @old;