view release on metacpan or  search on metacpan

Example.md  view on Meta::CPAN

	greple --if='env LC_ALL=en_US exif -x /dev/stdin' 'Image_Description|Manufacturer' *.jpg

---
## Print Function / プリント関数

### Search iCal data / iCal のデータを検索する

    help   --ical Search iCal data
    option --ical \
            --all \
            --chdir ~/Library/Calendars/*.caldav/*.calendar/Events \
            --glob *.ics \
            --print print_ical_line
    
    __CODE__
    sub print_ical_line {
        s/\r//g;
        my $s = '';
        my(@s, @e);
        if (@s = /^DTSTART.*(\d{4})(\d\d)(\d\d)(?:T(\d\d)(\d\d))?/m) {
            $s .= "$1/$2/$3";