while (<infile>) {

 if (my @matches = $_ =~ /exp/)
 {
    print join "\t", @matches;
  }
}

##</code><code>##


while (<infile>) {

 if (my @matches = $_ =~ /exp/)
 {
   my $line =  join "\t", @matches;
print $line;
  }

}