Select Code to Download

my $s = 'abcdefg';
$s =~ m{abc(de)(fg)};
my $output = do { sprintf "1=%s, 2=%s", $1, $2  };
print $output;  # 1=de, 2=fg