if ( $var =~ m/^[(](.*)[)],(.*)$/ )
{ @args = ($1, $2); }