- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
+ my $f4 = substr($result,3,1); $f4 = wrapper( $f4 ) if $f4;
+ my $f5 = substr($result,4,1); $f5 = wrapper( $f5 ) if $f5;
+ my $f6 = substr($result,5,1); $f6 = wrapper( $f6 ) if $f6;
+ my $f7 = substr($result,6,1); $f7 = wrapper( $f7 ) if $f7;