regex.pl

#!/usr/bin/perl

while (<>) {
    if (/^re.+p.$/) { # regex sudah menjadi bagian bahasa perl
        print;        # tidak terlihat jelas apa yang di-print
    }
}

regex.py

#!/usr/bin/python

import sys

import re
pattern = re.compile(r'^re.+p.$')   # regex itu adalah modul di python

for line in sys.stdin:
    if pattern.match(line):
        sys.stdout.write(line)      # apa yang ingin dicetak disebut secara eksplisit