my ($var) = $page =~ /...(...).../;