Select Code to Download

my @strings = qw(
  /home/usernames/doejohnwilson
...
    $common_length = length $1;
};
print substr $strings[0], 0, $common_length;