# The default variable $_

while (<>) {
    if (m/ab*c/) {
    	print;
    }
}