Select Code to Download

use strict;
use warnings;

...
    $data =~ s/$pat/$rep/ee;
    return $data;
}

This is some test data: <test>$1<\/test>...!
This is some test data: <test>$888<\/test>...!