Select Code to Download

use strict;
use Data::Dumper;
...

# in one step
(my $first) = ("abcdef" = /(.)./g);