Select Code to Download

#!/usr/bin/perl -l
use strict;
use warnings;
...
    print "$str\t", substr(lc($str), 0);
#   use Devel::Peek; Dump substr(lc($str),0);
}

x x
yz yz

x x
yz y