$s ='a       ';
$p = 0; print "a($1)($2)" while ++$p and $s =~ m[^a( {$p})( )];

a( )( )
a(  )( )
a(   )( )
a(    )( )
a(     )( )
a(      )( )