if ($name =~ /\./) {
    $name =~ s|^ (.{7}) .{2,} (\.[^.]*) $|$1~$2|x;
}
else {
    $name =~ s|^ (.{7}) .{2,} $|$1~|x;
}