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