Select Code to Download

use warnings;
use strict;
...
    $text =~ s/($pattern)/$trans{$1}/g;
    return $text;
}

S o m e   r a n d o m   t e x t . \n M o r e \n E v e n   M o r e \n