how do you get all legendary pokemon in perl?

[Rex Rapter]

i need to know how to get all the rare pokemon. so help me please.