urxvt clipboard access

clipboard

#! perl
# source: https://bbs.archlinux.org/viewtopic.php?pid=619931#p619931
sub on_sel_grab {
    my $query = quotemeta $_[0]->selection;
    $query =~ s/\n/\\n/g;
    $query =~ s/\r/\\r/g;
    system( "echo -en " . $query . " | xsel -ibp" );
}