#!/usr/bin/perl -w


while (<>) {         # default is <STDIN>, repeatedly waits for input (forever)
    chomp;
#   if (/G(ACT)?G/) {
   if (/G(ACT)+G/) {
#    if (/G(ACT)*G/) {
#   if (/by.?by/) {
#   if (/by.+by/) {
#   if (/by.*by/) {
	print "Matched: |$`<$&>$'| \n";
    } else {
	print "No match. \n";
    }
}