Select Code to Download

sub from_to($$$;$) {
    my ( $string, $from, $to, $check ) = @_;
...
    return undef if ( $check && length($uni) );
    return defined( $_[0] ) ? length($string) : undef;
}

my $uni = $f->decode($string);