# corrected
if($view_tag =~ m/^[A-Za-z0-9][\w.-]*/) {