$_ = "arl is most of our principal lecturer";

if ( /r$/ )
{
	print "found it\n";
}
else
{
	print "not found\n";
}