use strict;#etc,
my $parser = Text::CSV::Simple->new();
$parser->field_map(@fm);
my @data = $parser->read_file($tf);
my $ln   = 0;
open( my $cfh, '>', $cf ) || die "Can't open $cf: $!";
foreach my $row (@data) {
  ++$ln;
  if ( $ln > 1 ) {
  if ( my $date = ParseDate( $row->{Date} ) ) {
    $row->{Date} = UnixDate( $date, "%m/%d/%Y" );
  }
  else {
    print "ERROR: $row->{Date} not a date!";
  }
  foreach my $f ( keys %$row ) {
    if ( $f =~ m/^Spread\d\d?[my]$/ &&  $row->{$f} ne q{} ){
      print "Fixing a percentage ($f) --now $row->{$f}";
      $row->{$f} =~ s/^($RE{num}{decimal})%$/$1*100/e
                        || die "Pattern match failed!";
      print "--now $row->{$f}";
    }
    if ( index( $row->{$f}, ',' ) != -1 ) {
      $row->{$f} = qq{"$row->{$f}"};
    }
  } ## end foreach my $f ( keys %$row )
  } ## end if ( $ln > 1 )
  print {$cfh} join( ',', @{$row}{@fm} );
} ## end foreach my $row (@data)
close $cfh || die "Can't close $cf: $!";

##</code><code>##

Fixing a percentage (Spread3y) --now 0.781063003540039%
--now 78.1063003540039
Fixing a percentage (Spread5y) --now 2.25%
--now 225
Fixing a percentage (Spread3y) --now 1.455%
--now 145.5
Fixing a percentage (Spread5y) --now 4.9%
--now 490
Fixing a percentage (Spread5y) --now 0.79%
--now 79
Fixing a percentage (Recovery) --now 75%
--now 7500
Fixing a percentage (Spread5y) --now 1.15%
--now 115
Fixing a percentage (Spread2y) --now 0.45999999999999996%
--now 46
Fixing a percentage (Spread4y) --now 0.9199999999999999%
--now 92
Fixing a percentage (Spread1y) --now 0.22999999999999998%
--now 23
Fixing a percentage (Spread7y) --now 1.3%
--now 130