use strict;
use warnings;
use Data::Dumper;

my $var = "(this is a good idea!), No it's not";
if ( $var =~ /^(\(.*\)),(.*)$/ ) {
    my @args = ($1, $2);
    print Dumper(\@args);
} 

__END__

$VAR1 = [
          '(this is a good idea!)',
          ' No it\'s not'
        ];