{
   no strict 'refs';
   $somestring =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;
   $result = ${$matchnum};
}