Select Code to Download

$x =~ s/^(.{10}).*/$1/;
($x) = $x =~ /^(.{10})/;
$x = substr($x, 0, 10);
susbstr($x, 10) = '';