#!/usr/local/bin/perl -w
use strict;
my $line = q{
</pre>
<img src=http://blah.microsoft.com/analog_sc/bp/_lessons_learned/2788_1.jpg>
<br>
<img};
print qq{LINE:[$line]\n};
tagremover( $line );
print qq{LINE:[$line]\n};
sub tagremover {
$_[0] =~ s/<//g;
}