use warnings;
use strict;

my $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);
__END__
1.74,1.75
##</code><code>##

my $str = '---------------
1.74 --> 1.75  :test/document.txt';
my ($values,$cf) = $str =~ /([\d.]+)\s*-->\s*([\d.]+)/;
print "$values,$cf\n";
__END__
1.74,1.75