Умножить числа в текстовом документе в два раза

$file       = ".\*.txt"
$rx         = 'B-?\d{0,4}\.?\d{0,4}'
$content    = get-content $file -raw
$numbers    = [regex]::matches($content, $rx)
$multiplier = 2.0
$result     =@()
 
foreach ( $number in $numbers ) {    
    $numericpart = [double]($number -replace '[^-?\d{0,4}\.?\d{0,4}]','')
    $newnumber   = $numericpart * $multiplier
    $result     += "B" + $newnumber
} 
$result | out-file ".\out.txt"

$in  = '.\input.txt'
$out = '.\output.txt'
 
$rx = '(?<!\S)B(?<num>[-+]?\d+(?:\.\d+)?)(?=\s|$)'
$culture = [System.Globalization.CultureInfo]::InvariantCulture
 
Get-Content $in | ForEach-Object {
    [regex]::Replace($_, $rx, {
        param($m)
        $s = $m.Groups['num'].Value
        $decimals = if ($s.Contains('.')) { ($s.Split('.')[1]).Length } else { 0 }
        $val = [decimal]::Parse($s, $culture) * 2
        'B' + $val.ToString("F$decimals", $culture)
    })
} | Set-Content $out -Encoding UTF8

$text = @'
A15 B12 C12.5 D96.55
B-18 A30.1 D-0.3 C15.02
G1 A16.8 B22.3 D0
D12 B-15.7 H66.33 U1
F0.3 L700 S11 B111.358
B-1265.3687 C25.35 G111.687 H2
B17
G1 A16.8 B22.3
D12 B-15.7
'@
 
$rx = '(?<!\S)B(?<num>[-+]?\d+(?:\.\d+)?)(?=\s|$)'
$culture = [System.Globalization.CultureInfo]::InvariantCulture
 
$result = [regex]::Replace($text, $rx, {
    param($m)
    $s = $m.Groups['num'].Value
    $decimals = if ($s.Contains('.')) { ($s.Split('.')[1]).Length } else { 0 }
    $val = [decimal]::Parse($s, $culture) * 2
    'B' + $val.ToString("F$decimals", $culture)
})
 
$result

perl -i -pe 's/B[\d.-]+/$&*2/ge' myfile.cnc

#requires -v 7
$text = @"
A15 B12 C12.5 D96.55
B-18 A30.1 D-0.3 C15.02
G1 A16.8 B22.3 D0
D12 B-15.7 H66.33 U1
F0.3 L700 S11 B111.358
B-1265.3687 C25.35 G111.687 H2
B17
G1 A16.8 B22.3
D12 B-15.7
"@
 
$text|%{$_ -replace '(?<=B-?)\d+\.?\d*',{[string]([decimal]$_.value * 2)}}