use strict;
use warnings;

open IN, '<', 'notepad.exe.lnk' or die $@;

my $pathchrs = '';

while (<IN>) {
    my @strs = /([-\/\.[:alnum:]_\\:]{10,})/g;
    print join "\n", @strs;
}

close IN;

##</code><code>##

notepad.exe
C:\WINDOWS\notepad.exe