if ( ($newLine =~ /$/)[0] eq /(\w+)$/ )
{
	print " the line $newLine\n";
}

##</code><code>##

yty~uyuoo~iu99~##uyt~hu/dwo9