Statement Perl

for (print "%"; <>; print "%") {
    print;
}