Help for this page

Select Code to Download

Select or download this

use strict;
my $TheLine = 'REFERENCE "z:/bin/JAnalyzer/Justice Analyzer Users Guid
+e.pdf" "package/Justice Analyzer Users Guide.pdf"';

my @Files= $TheLine=~m/"([^"]*?)"/g;
print join "\n", @Files;