Select Code to Download

$var = "(this is a good idea!), No it's not";

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

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

#!/usr/bin/perl -w

...

print "\nArgs:\n";
print Dumper(@args)."\n";

Args:
$VAR1 = 'Memory is incorrectly balanced between the NUMA nodes of this
+ system, which will lead to poor performance.  See';
$VAR2 = '_NUMA_CRIT_';