while ($line=~m/([123]?[.s]*[a-z\=.]+)/ig)