Or even:

use strict;
use warnings;

my $string = qq{oCMenu.makeMenu('m40','','Files','','',100,20) oCMenu.
+makeMenu('m41','m40','Periodic Reports','index.cfm?openaction=file_ar
+chive.view&CONTENT_ID=BF764E84-ED11-EC57-40672E520082E823','',125,20)
+ oCMenu.makeMenu('m53','m40','Reference Documents','index.cfm?openact
+ion=file_archive.view&CONTENT_ID=BF76E870-E7CC-515F-D4D5C3D4A210BB9A'
+,'',125,20)};

$string =~ /Periodic Reports','(.*?)'/;
print $1;
[download]