Select Code to Download

    #!/usr/bin/perl -w

    use strict;
...
    "the go-betweens" (group), "spring hill fair" (album title).
    "jonathan richman" (group), "i, jonathan" (album title).

    Input:  "red hot chili peppers" (group), "by the way" (album title
+).
    Output: "Red Hot Chili Peppers" (group), "By the Way" (album title
+).

...
    Input:  "jonathan richman" (group), "i, jonathan" (album title).
    Output: "Jonathan Richman" (group), "I, Jonathan" (album title).