Select Code to Download

$ perl -MO=Concise,-exec -E'my $foo = "weird123"; say $foo . do { $foo
+ =~ s/123//; $foo };'
...
...
h  <2> concat[t2] sK/2
i  <@> say vK
...

use feature qw( say );
use Data::Alias qw( alias );
...
   alias push @_, &concat;
   say shift(@_);
}

$ perl -MO=Concise,-exec -E'my $foo = "weird123"; say $foo . "" . do {
+ $foo =~ s/123//; $foo };'
...
...
j  <2> concat[t3] sKS/2
k  <@> say vK
...

use feature qw( say );
use Data::Alias qw( alias );
...
   alias push @_, &concat;
   say shift(@_);
}