#!/usr/bin/perl -w

while (<>) {
   chomp;

   if (/"([^"]*)"/) {
      print "Matched: |<$&>|\n";
   } else {
      print "No Match.\n";
   }
}