Select Code to Download

perl -e "use 5.014; my $foo= 'bc'; if ($foo = /(\d*)/ ) {say 'match'; 
+}else{ say 'Duh!';}"
match