Re: Need help to substitute

A variation on the theme, using Look-Around Assertions:

#! perl
use v5.12;

say s! ( ?<= \\ install ) _ .+? ( ?= \\ ) !!rx
    for 'D:\ostore_7.3.0_tfix_bld\install_temp\OStore\bin\os_coll.adb'
+,
        'D:\ostore_7.3.0_tfix_bld\install_patch\osji\lib\osjiload.ldb'
+;
[download]

Output:

D:\ostore_7.3.0_tfix_bld\install\OStore\bin\os_coll.adb
D:\ostore_7.3.0_tfix_bld\install\osji\lib\osjiload.ldb
[download]

Hope that helps,

Athanasius <°(((>< contra mundum

In Section Seekers of Perl Wisdom