n/m fixed the error by replacing lines 157-159 with foreach (@songname) { next if (!defined($_)); $_ =~ s/title\>([^<]+)/\1/i; }

Loaded - LastFM API via Rythembox - Use: /pl or /recent or /love or /loved & Change $fmset! or Do: /fmset <username>
- Last-FM: shaneo
Use of uninitialized value $songname in pattern match (m//) at /home/shaneo/.xchat2/lastfm.pl line 60.
Use of uninitialized value $cleanedsong in substitution (s///) at /home/shaneo/.xchat2/lastfm.pl line 60.
Use of uninitialized value $cleanedsong in substitution (s///) at /home/shaneo/.xchat2/lastfm.pl line 60.
Use of uninitialized value $cleanedsong in concatenation (.) or string at /home/shaneo/.xchat2/lastfm.pl line 61.