clueless

#!/usr/bin/perl		while(TRUE)	{			print "Enter a text\n";		if($_ = <STDIN>)		{			print "now write a regexp that matches part of the text\n";			if($regexp = <STDIN>)			{				if($_ =~ $regexp)				{					print "We have a match";				}			}		}	}