I don't like how it not only clobbers @data, but relies on it. The grep could be replaced with:

             map { local $_ = $_;
                   s/^A\d+ // ? $_ : ()
                 }
[download]