#!/usr/bin/perl 

foreach (<STDIN>){
    chomp;
    if (/gao/){
        print "$_ was matched 'gao'\n";
    }
}
# echo -e 'hello gao\n sdfj \ngao gao gao \ngao lllll' | perl 5re.pl