$name =~ /^(.+)(\..+)$/ or die "$name is an invalid patch name";
"$1$platform$2";

##</code><code>##

$name =~ /^(.+)\.(.+)$/ or die "$name is an invalid patch name";
"$1$platform.$2";