User:Shadow1/perlwikipedia/Check