Your $newpath contains regex metacharacters. Change the regex to escape them by:

if ( $path->[0] =~ /\Q$newpath\E/ )
[download]

The '\b' in $newpath is interesting, The match /l\bi/ cannot match anything, since '\b' is a zero-width word boundary and 'li' does not contain one :)

In a larger issue, the File::Spec module can help with this task.

After Compline,
Zaxo