print "words $pattern\n";
  print "\$1 morewords\n";
  print "\$2 morewords\n";
  print "\$seewhereimgoing\n";
}