use strict;
use warnings;
use File::Find ;
use File::Find::Closures qw(find_by_min_size) ;

<snip>
chomp (my $fs = <>) ;

if ( $fs =~ m|\x2f{1}?|g ) {  ##-- if "/" is matched --#
    $File::Find::prune = 0;
    find_me;
}
elsif ( $fs !~ m|\/\w+| ) {
    $File::Find::prune = 1;
    find_me; 

find_me {
my @directory = ($fs) ;
    use constant MAX_SIZE => (25*1024*1024) ;
    use constant DIVISOR  => (1024) ;
    my ( $wanted, $list ) = find_by_min_size ( MAX_SIZE ) ;
    File::Find::find ( { wanted => $wanted, }, @directory ) ;

<snip>
}
<snip>