Select Code to Download

!/usr/bin/perl -w -p 
s/^(\*+)/ 
...
$o = $n, 
join(".",@l[1..$n]) 
/e;

!/usr/bin/perl -w -p 
s {
...
  $o = $n; # $o is global
  join(".",@l[1..$n]); # returning this
}ex;