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