Select Code to Download

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

s/ {50}.*//;

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