krisskross/gist:2726339

## gistfile1.pl
#! /usr/bin/perl

sub on_sel_grab {
    my $query=quotemeta $_[0]-&gt;selection;
    $query=~ s/\n/\\n/g;
    $query=~ s/\r/\\r/g;
    system( &quot;echo &quot; . $query . &quot; | xsel -i -b -p&quot; );
}
	#! /usr/bin/perl

	sub on_sel_grab {
	my $query=quotemeta $_[0]->selection;
	$query=~ s/\n/\\n/g;
	$query=~ s/\r/\\r/g;
	system( "echo " . $query . " \| xsel -i -b -p" );
	}