/$currentpattern/;		# Dummy match.
while (<>) {
    print if //;
}

.