foreach (@data) {
  my $match = $_ if /testdir/;
}

##</code><code>##

foreach (@data) {
  my $match = $_ if /^\//;
}