$line=;

##</code><code>##

$line=<IN>;

##</code><code>##

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