I don't know if this is mannerism or minimalism ;-)

#!/usr/bin/env perl                                                   
+                              

use strict;
use warnings;

# my @array = split('',  join "", ( "A" x 20, "T" x 20, "C" x 30, "G" 
+x 30 ) );

# my @array = split '', join '', ( "A" x 20, "T" x 20, "C" x 30, "G" x
+ 30 );

my @array = split '', join '', "A" x 20, "T" x 20, "C" x 30, "G" x 30;

print  scalar @array . qq(\n);

print for @array;

__END__
[download]

But it works.

Update: No parentheses.

Regards, Karl