#!/usr/bin/perl -w

use strict;

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

$string =~ /Periodic Reports','([^']+)'/;

print "Want to see:\n",
"index.cfm?openaction=file_archive.view&CONTENT_ID=BF764E84-ED11-EC57-40672E520082E823",
"\n$1\n";