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]

#!/usr/bin/perl -w
use strict;
my $string = "TITLE=SPECIAL CASE 1";
$string =~ /.*=(.*)/;
print $1;
[download]

. stands for any character but a newline
* for zero or more times
() stores the result in $1.
Type "perldoc perlfaq6" for more details ...

hth
weini

Both you and DamnDirtyApe have a .* preceeding the =. Why?

    print $string =~ /=(.*)/
[download]

will do fine.

Abigail

will do fine.

But not the same. Their versions grab everything after the last =, your version grabs evertyhing after the first one.
I think your solution is better (and I'm sure it's a lot more efficient), but we can't know for sure without more information.

$\ = "\n";

for ('title=foo' ,'title=foo=bar') {
    print "-> $_";
    print /.*=(.*)/;
    print /=(.*)/;
}
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

I suspect split would be your best choice-

# split
my ($key, $string1) = split /=/, $_, 2;
print "$key, $string1\n";
[download]

Though there are other ways-

#re 1
/^TITLE=(.*)/;
my $string2 = $1 || '';
print "$string2\n";

#re 2
(my $string3 = $_) =~ s/TITLE=//;
print "$string3\n";

# substr
my $string4 = substr($_, 6);
print "$string4\n";
[download]

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';

my $string ;
my $title = 'TITLE=SPECIAL CASE 1' ;
$string = $title if $title =~ s/^TITLE=// ;
[download]

Now $string is SPECIAL CASE 1. If $title didn't match, it is undef, and you can test it with a simple if ($string) {..., for example (but I would rather use if (defined $string) {...)

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}

my $test = "TITLE=SPECIAL CASE 1";
my @temp;
for(reverse split(//,$test)){
    last if /=/;
    push @temp,($_);
    }
print reverse @temp;
[download]

-caedes

use strict;
my $string = "TITLE=SPECIAL CASE 1";
$string = (split('=', $string))[1];
print "$string\n";
[download]

Joshua