Select Code to Download

    #!/usr/bin/perl -wl

...

    my $str2 =  '{fred and barney} {bam bam} {pebbles} {} {   }';
    print $str2;
...
    {xxxxx} {xxxxx} {xxxxx} {} {xxxxx}