Select Code to Download

  if(-d BUS)

  if ( $_ eq "BUS" and -d "$path/$_" ) # string equality test
  if ( /^BUS$/ && -d "$path/$_" )      # pattern match on $_

use strict; use warnings;
my $path='/home/something/something/something';
...
        print "$_\n";
      }
  }