Perlの達人いる？
hogeというﾃﾞｨﾚｸﾄﾘ内のﾀｲﾑｽﾀﾝﾌﾟが一週間前のﾌｧｲﾙすべてを削除するｽｸﾘﾌﾟﾄをちょっと書いてみてくれ