Select Code to Download

open my $ih, '<', $fin or die "cannot open $fin for reading, $!"; 
$ih =~ s/\n+/\n/g;

$ih =~ s/\n+/\n/g or warn "No subst\n";