Select Code to Download

#! /usr/bin/perl
use strict;
...
  while ($_[0]) { $_[0] =~ s/^([a-zA-z]|[0-9]+)//; push @out, $1; }
  return @out;
}