$str = 'line 5<br>line 4<br>line 3<br>line 2<br>line 1<br>';
@lines = split('<br>',$str);
unshift (@lines,'line 6');
$output = join('<br>',@lines[0..4]);
print $output;