#!/usr/bin/perl
use strict;
use warnings;

my $bar1 = 'this002haa007hoothat';
my $bar2  = 'abcdef';
my $bar3 = $bar1.$bar2;

$bar3 =~ s/\t$//g;
print $barb, "\n";