/etc/skel$ perl -le '$foo=qq(/); print "YES" if $foo =~ m|/|;'
YES
/etc/skel$ perl -le '$foo=qq(/var); print "YES" if $foo =~ m|/|;'
YES

##</code><code>##

print "enter text\n";
chomp(my $fs = <>);

if ( $fs !~ m|/\w+| ) {  ##-- only look for / --##
   print "YES\t$fs\nfirst test\n";
}
elsif ( $fs =~ m|/\w+| ) {  ##-- only look for /words --##
   print "YES\t$fs\nsecond test\n";
}
/etc/skel$
/etc/skel$ perl test1
enter text
/var
YES     /var
second test
/etc/skel$ perl test1
enter text
/
YES     /
first test

##</code><code>##

if ( $fs !~ m|/\w+| ) {  ##-- only look for / --##
    find_me($File::Find::prune = 1); ##-- false, do not prune past / --##
    find_me;
}
elsif ( $fs =~ m|/\w+| ) {  ##-- only look for /words --##
    find_me($File::Find::prune = 0); ## true, prune dir tree   --##
}

sub 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 ) ;

   my ( @sorted_large_files, @large_files ) ;
   @large_files = $list->() ;
<snip>

}