Simplifying slightly:

while (<DATA>) {
  if (/(\d+\.\d+)%/) {
    print $` . $1 / 100 . $';
  }
}
[download]

But I still prefer my s/// solution as using $` and its friends isn't recommended.

The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches.