while ($content =~m/^(CAL.+\((\w+)\))/mg){
        print "\n1= $1";
        print "\n2= $2";
}