perl -MPIR -wE 'chomp(my $wanted = <>); say for PIR->new->dir->name(qr/$wanted/)->all("C:/")'