perl -e 'foreach (1..5) {print "A¥n"}'

なんかバカバカしくなってきた。(w