#!/usr/bin/
perl

my $a =
"
()";

for (@a) {

};