while (<>) {
    print if m/[perl]+/;
}