code memo

cat hoge7.txt|perl -e 'while(){$_=~/\d{7}/;print $&,"\n";}'

謝肉祭が消えた。