Select Code to Download

use strict;
use warnings;
my $str = "Title: Learning Perl  Author: Schwartz, Randal L.  ISBN: xx
+xx";
...
  $author =~ s/\.//g; # Remove full stops (periods)
  print "<$1><$author><$3>"; # Line 8
}

Use of uninitialized value <snip> line 8.
Use of uninitialized value <snip> line 8.
<><Schwartz, Randal L ><>