Select Code to Download

#!/usr/bin/perl
    
...
        
        }

#!/usr/bin/perl
    
...
        }

        my $re = 
            ', \w*(\w)\w* 
...
            (??{ ( grep $_ > $times, values %occ ) ? "(*F)" : "" })
            ' x ( $times * length $string );
            ;