perl ' R !d tvler ,samt