Powerful perl paradigm I don't find in python

[Charles T. Smith]

while ($str != $tail) {
    $str ~= s/^(head-pattern)//;
    use ($1);
}
-- 
https://mail.python.org/mailman/listinfo/python-list