Select Code to Download

#!/usr/bin/perl
use strict;
...
Before: text = \x1\x2\x3\x4
 After: text = \x1\new