#!/usr/bin/perl -w
    use strict;
    while(<DATA>){
        chomp;
        print ",\n" unless 1..1;
        print;
    }
    __DATA__
    foo
    bar
    blah

##</code><code>##

    #!/usr/bin/perl -w
    use strict;
    while(<DATA>){
        chomp;
        print ",\n" unless $. == 1;
        print;
    }
    __DATA__
    foo
    bar
    blah

##</code><code>##

    #!/usr/bin/perl -w
    use strict;
    while(<DATA>){
        chomp;
        print ",\n" unless ?^?;
        print;
    }
    __DATA__
    foo
    bar
    blah