Here's two ways:

my $str = 'TITLE=SPECIAL CASE 1' ;

# Using a regexp...
$str =~ /^(.*?)=(.*?)$/ ;
my $match = $2 ;
print "Matched: [$match]\n" ;

# Using split...
my ( $before, $after ) = split '=', $str ;
print "Matched: [$after]\n" ;
[download]