my $file = ($self->{Filename} =~ /^(.*)$/;


##</code><code>##

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