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