use warnings;

foreach my $match ('Info: Product Line is MMS 3.3') 
   {
     if ( $match =~ /Info: Product Line is (\w+)/ ) 
      {
      $product_line = $1; 
      print "$product_line\n";
      }
   }

__END__

MMS