Perlでgrfを展開して・・・なんて書けるのか?