Select Code to Download

my @article =  ( 
            'author = {Author, J.P }' ,
...
# to join all the edited elements will commas
my $joined = join ",", @article;
print $joined;

my $string = <<'STRING';
@article{ 
...
    $open = '' if $open eq $_;
}
print $commaless;