my ($var1,$var2);
($var1,$var2) = ($1,$2) if ($value1=~/something/ && $value2=~/(what)(ever)/);