Select Code to Download

 use strict;
use warnings;

...
$have =~ s/\n/<br \/>/;

is $have, $want;

 
use strict;
use warnings;
...
  foreach my $have (@data) {
    $want = $have;
  }