my @dd = (1..10);  grep { s/\d+/a/ } do {@dd}; print @dd;  # aaaaaaaaaa
my @dd = (1..10);  grep { s/\d+/a/ } eval{@dd}; print @dd; # 12345678910