#! /usr/bin/perl
# copied from http://bbs.archlinux.org/viewtopic.php?pid=453902
# depends on parcellite

sub on_sel_grab {
    my $query = $_[0]->selection;
    $query =~ s/([\&;\`'\\\|"*?~<>^\(\)\[\]\{\}\$\n\r])/\\$1/g;
    $query =~ s/\n/\\n/g;
    system( "echo -en " . $query . " | parcellite" );
}