opendir(PWD,"$next") && my @files = readdir PWD
      or die "Open \"$_\" failed: $!";

##</code><code>##

s/test/whatever/, print;

##</code><code>##

s/test/whatever/ => print;