$content =~ /BOGUS\s+([A-Z0-9_]+)/; 
$bogus = $1;
$noOfAcids =~ /\s+([0-9\sa-z]$)/;
$acids = $1 ;
print("bogus: $bogus\nNumber of acids:$acids\n