...
  my $str1 = 'AT1G7. +126[0]*';
  my $str2 = 'AT1G7. +126[0]*_|_chr1';
  ...
  (my $results) = $str2 =~ /\Q$str1/g;
  print $results if $results;
  ...