Select Code to Download

use warnings;

...
        ];
Use of uninitialized value $value in pattern match (m//) at ./t.pl lin
+e 12.
single word expected at ./t.pl line 12.

my ($name, $value) = ($str =~ /(\w+)\s+(\w+)/);
mysub($name, $value);