Select Code to Download

#!/usr/bin/perl
use strict;
...

    print join("\n   ", "map {$expr} =>", @values), "\n";
}

map {lc} =>
   <tag>a</tag>
...
   2
   c
   2