Select Code to Download

#!/usr/bin/env perl 
use strict;
...
say "Scalar: " . $x =~ /(\d+)/;
say "List:   " . ($x =~ /(\d+)/);
say "First:  " . ($x =~ /(\d+)/)[0];