my @s = ( /([^(]+)(\([^)]+\))(.*)/ );

##</code><code>##

my @s{qw/table fields values/}) = ( /([^(]+)(\([^)]+\))(.*)/ );

##</code><code>##

@row{qw/name company title/} = $DBH->selectrow_array("...");