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