perl -MO=Deparse -lne 'print if s/0010 0010.*\/\/.*\/\///'