if ($str =~ /^$var/)