print "What do you want to save?\n";
my $inp = <>;
$inp =~ s/\\/\//g;
if ($inp !~ m/^\w+$|^.+$/g)
{
	do 
	{
	print "Nothing Entered.  Try Again - ";
	$inp = <>;
	}
	until ($inp =~ m/^\w+$|^.+$/g)
}
		if ( -d $inp)
		{ print "Folder exists! - \n" }