#!/usr/bin/perl while(<>){ s/^\200\200//; print; }