#!/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=file_archive.view&CONTENT_ID=BF764E84-ED11-EC57-40672E520082E823','',125,20)