Select Code to Download

my @strings = (
    'Abc     21223.7   21225.33   22270.3   22280.1',
...
    my @arr = split(/\s+/, $_);
    print join(' - ', @arr), "\n";
}

Abc - 21223.7 - 21225.33 - 22270.3 - 22280.1
Def - 21600.23 - 24567.43