my $str = ...
my @array = split /\s+/, $str;
my $title = pop(@array); # get the last element
# or even
$str =~ / {50,}(.*)/; # match 50 or more spaces and capture
                      # remaining text 
my $title = $1;