$text='---------------
1.74 --> 1.75  :test/document.txt';

sub func {
    my ($text) = (@_);
    
    $text =~ s/[\s|\n]*//g;
    $text =~ s/^[---]+//;
    
    my ($aa,$cd)=split(/:/,$text);
    my ($values,$cf)= split(/-->/,$aa);
    print "$values,$cf\n";
}

func($text);