while ($in){
    #data manipulation to clean up ='s and ,'s
    chomp;
    $_= ~/^\w+\s*=\s*\w+\s*\,\?\w+/ ;