{$}=(scalar(%::)=~/\/(\d+)/&&$1)}{package JAPH}
print(($_)=[%::]->[$_]=~/(\w+)/,$/)for+($}-2..$}-2)