#!/usr/bin/perl

use strict; 
use warnings;

my ($text, $value);

#23456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789|
format = 
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>
dotize(65, $text), $value
.


sub dotize {
    my ($maxwidth, $string) = @_;
        return $string . " " . ('.' x ($maxwidth-length($string)));
}


foreach (<DATA>) {
    chop();
    ($text, $value) = (m/^(\D+)\s(\d.+)/);
    $text = "" if !defined $text;
    $value  = 0 if !defined $value;
    write();
}

__DATA__
Text text text text text 34.45
Text text text text 234
Text text text 345-347,532
Text text text text text text 445