Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
while ($data =~ /$regex/ig) {
    print "$1 = $2\n";
}