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