Select Code to Download

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