sub on_osc_seq_perl { my ($term, $args) = @_; return () unless $args =~ s/^Cs;//; $term->option($urxvt::OPTION{'cursorUnderline'}, !!( $args =~ /^[34]$/ )); () }