CheatBook-DataBase 2001 v3.0 - http:://.... (50 spaces) some text

##</code><code>##

s/ {50}.*//;

##</code><code>##

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;