Select Code to Download

/^\.(\w+).*$\t+\.\w+\W+(\w+).*$/m

.somewords any amount of garbage till a suposed end of line
[some number of tabs].nomatchwords matchedwords garbage to eol

#!/usr/local/bin/perl -w
use strict;
...
.again, a line.
                .Yet another line