try this:
my $title =~ s/<br><br>/ /i;
if ($header =~ /(^\S.+)(<br><br>)(\S.+$)/m)
{
$header =~ s/<br><br>//i;
}
print $header;
hope it helps
martin
birgit kellner wrote:
> my $header = "Joe Doe<br><br>The book I wrote yesterday";
> my $title;
> if ($header =~ /(^\S.+)(<br><br>)(\S.+$)/m) { $title = "$1: $3";}
> print "$title\n";
>
> Is there a shorter, simpler, more efficient way to do this? I still need
> $header later on as it is.
>
> I quite often have to copy the value of a variable and then run a regexp
> substitution on it; I was wondering whether there's a better approach
> than this one.
>
> Birgit Kellner
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
