Select Code to Download

my $subtext = "sub {\n";
$subtext .= join (" and ",
...
$subtext .= ";\n}";
my $selectsub = eval($subtext);
my @ret = grep(&$selectsub, @{ $self->get_data() });

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