Select Code to Download

use strict;
use warnings;
...
           Smith      001 2/1/1 
Betty      Smith      002 3/1/1 
           Jones      003 4/2/1

my $str = "\001\002hello";
...

--output:--
1 he