while (<$in>) {
$_ =~ s/^\s*\S+\s*//;
print $out $_;
}