Select Code to Download

my $data = "\x04\x05\x06\x07\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f\x10\x11";

...
foreach (@find) {
  if ($data =~ /$_/) { print "found\n" } else { print "not found\n" } 
+;
};

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/