$file = 'C:\\Documents and Settings\\*My Name Here*\\Desktop\\Code\\Programming\\PerlfileText.txt';
$continue = 'y';
while ($continue eq 'y')
{
    print 'Enter filename to search: ';
	$file = <>;
	chomp ($file)
	open (search, $file) || die("Could not open specified file\n");
	$text = <search>;
	if($text =~ /is.d/);
	{
	    print '\nA match was found\n';
		close (search);
	}
	else
	{
	    print "\nNo matching pattern\n";
		close (search);
	}
	print "Continue?(y\/n): ";
	$continue = <>;
	chomp ($continue);
}

print '\nA match was found\n';

print "\nA match was found\n";