#!/usr/bin/perl
#
# Replace ~/KDesktop/Trash to %t
while( <> )
{
s:~?\S*/\S*Trash\S*:%t: if ( /^\s*command\s*=\s*kfmclient\s+move/ );
print $_;
}