my ($key, $string1) = split /=/, $_, 2;
print "$key, $string1\n";
Though there are other ways-
my $string2 = $1 || '';
(my $string3 = $_) =~ s/TITLE=//;
my $string4 = substr($_, 6);
Just as examples. Which method you choose will depend on what else is going on in your program and what the most general case of your expression is. If it is *always* TITLE="some string" I might use substr. If it was (for example) "some text in upper followed by an equals followed by some string ending in a numeric" *and* I had to ignore other lines that include "=" I might use an regular expression.
my $chainsaw = 'Perl';