my $example = "stupid\texample\tfor\tyou\n";
$example =~ s/\t.*$//;