Select Code to Download

use strict;
use Data::Dumper;
...
# in one step
(my $first) = ("abcdef" =~ /(.)./g);