Select Code to Download

#!/usr/bin/env perl

...

my ($d, $e, $f, $g) = ($x =~ m/$r1/);
print qq($d, $e, $f, $g\n);