use strict;
use warnings;

while(my $html = <DATA>){
$html =~ s/<.*?>//g;
next if ($html =~ /23456/);
print $html;
}
__DATA__
<p>Find more business news at facebook.com and twitter.com. Text BUSINESS to 23456 for breaking business news text alerts on your mobile phone. Text JOBS to 23456 for job alerts.</p>
<p>Want your news even faster? Text NEWS to 23456 to sign up for breaking news text alerts. See for a complete list of alerts.</p>
<br>SIGN UP FOR MOBILE NEWS ALERTS! Get your news on the go, text NEWS to 23456

##</code><code>##

$html =~ s/23456/123456789/g;