my ($number)= $searchstring=~/\|M\|\(avp-code = 268\)\(flags = 64\)\] = (\d+)/; #or my ($number)= $searchstring=~/\Q|M|(avp-code = 268)(flags = 64)]\E = (\d+)/;