Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @p = ($mm=~m/(\"[A-Za-z0-9_\-.+]*\")/g);
print map {qq($_\n)} @p;
1;