my $a = 'a(b)cd(e)fg(h)ij(k)l';
open IN, '<', \$a or die "Reading string: $!\n";
$/=\5;
my @s = <IN>;
print map "$_\n", @s;