inurl - open URLs in the default browser, URLs are choiced from STDIN by peco

inurl

#!/usr/bin/env perl
# 2019/03/14
# inurl - 標準入力を peco に渡して、URL がある行を選択するとその URL をブラウザで開く

use strict;
use warnings;
use IPC::Open2;

my (@url, $child_out, $child_in);
open2 $child_out, $child_in, 'peco';
while (<>) {
    print {$child_in} $_;
}
close $child_in;
while (<$child_out>) {
    chomp;
    if ( m{https?://\S+}p ) {
        system 'open', ${^MATCH};
    }
}