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