while (<infile>) {

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

}