in reply to Complaints from Warnings about uninitialized var

after your split to get $middle you could do

$middle ||= '';

[download]
or 
$middle = '' unless defined $middle;

[download]

In Section Seekers of Perl Wisdom