if ( $content =~ /\t/ ) {
    $content =~ s/\t//g;
}