Select Code to Download

$root = 'D:\projects\\';
@workspacefiles = split/\n/, `dir *.dsw /s /B`;
s/\Q$root\E(.+)/$1/ for (@workspacefiles);

foreach $dswfile ( @workspacefiles )
{
...

    # Then I open the file and read the relevant data.
}