Select Code to Download

# ALL OCCURENCES
> grep -l 'qr//' /usr/share/perl/5.10/pod/*.pod
...
/usr/share/perl/5.10/pod/perlre.pod
/usr/share/perl/5.10/pod/perlretut.pod
/usr/share/perl/5.10/pod/perltoc.pod

# JUST THE X TAGS WITH qr
> grep -l 'X<qr>' /usr/share/perl/5.10/pod/*.pod
/usr/share/perl/5.10/pod/perlop.pod
/usr/share/perl/5.10/pod/perltoc.pod

# AUTOMATICALLY OPENING THE SEARCHRESULTS IN PERLDOC
> for i in `grep -l 'X<qr>' /usr/share/perl/5.10/pod/*.pod`;do perldoc
+ $i;done