while (<infile>) {

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