#!perl -pal $_=$F[/k P|r S|s R/]