I understand this isn't directly answering your question, however if every line of your data is formatted in the same way, then an alternative (and probably simpler) approach may be to use split, for example:

#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    my $wanted_string = (split /','/)[3];
    print "$wanted_string\n";
}

__DATA__
oCMenu.makeMenu('m41','m40','Periodic Reports','index.cfm?openaction=f
+ile_archive.view&CONTENT_ID=BF764E84-ED11-EC57-40672E520082E823','',1
+25,20)
[download]

Just offering another way to do it....

Cheers,
Darren :)