my ($name) = $_ =~ m!\A(.*)\z!s;