Select Code to Download

#!/bin/perl -w  
use strict;

...
    $text_in_tag=~ s{\n}{<br />}g;
    return $text_in_tag;
  }