blablblablabjb
blabalbbaabb;b
blablababja;b
Type:   Divorced
dffggf
blbab

##</code><code>##

$goal = Divorced;

##</code><code>##

if (m/^(Type:)\s*(\w+)/);  
{
	$goal = $1;
}