foreach (keys %$self) {
	$self->{$_} = ($self->{$_} =~ /^(.*)$/);
}