Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $values = [
...
name qwe last rty
name asd last fgh
name zxc last vbn

say "@{[%$_]}" for map { { map { /^\s*(.*?)\s*$/; $1 } @{[%$_]} } } @$
+values;