while ($FileStr !~ m/(^[a-zA-Z])\w{2,5}/) {<br><br>
	
	print ("Please input a valid filename:");<br>
	$FileStr = <STDIN>;<br>
	chomp ($FileStr);<br>
	$x = length($FileStr);<br>
}