Select Code to Download

my $char = "0x388c818ca8b9251b393131c08a736a67ccb19297";
my($output) = $char = /^(?<=\S{5})\S(?=\S{7})/;

print $output;