perlである文字列があらわれるまで読みとばしてそっから処理をはじめるにはどうしたらいいんでしょ？