2 edited body
source | link

Perl 5 - 7978 + 1(flag) + 2(Input Quotes) = 81 Bytes with flag

for(;/(\([a-g]+\)|[a-g\.])/g;){$i=$1;print$i=~/$_/?'o':'.'for(a..g);print"\n"}

Can be run like so:

perl -n <name of file holding script> <<< <input in quotations>

Perl 5 - 79 Bytes with flag

for(;/(\([a-g]+\)|[a-g\.])/g;){$i=$1;print$i=~/$_/?'o':'.'for(a..g);print"\n"}

Can be run like so:

perl -n <name of file holding script> <<< <input in quotations>

Perl 5 - 78 + 1(flag) + 2(Input Quotes) = 81 Bytes

for(;/(\([a-g]+\)|[a-g\.])/g;){$i=$1;print$i=~/$_/?'o':'.'for(a..g);print"\n"}

Can be run like so:

perl -n <name of file holding script> <<< <input in quotations>
1
source | link

Perl 5 - 79 Bytes with flag

for(;/(\([a-g]+\)|[a-g\.])/g;){$i=$1;print$i=~/$_/?'o':'.'for(a..g);print"\n"}

Can be run like so:

perl -n <name of file holding script> <<< <input in quotations>