Select Code to Download

#!/usr/bin/perl
use 5.010;
use Data::Dumper;
...
my $rhs = $+{rhs};

say Dumper([\@lhs, $rhs]);