เรื่องก็มีอยู่ว่า วันนึง LuC!F3R เค้าถามผมว่า เคยเขียน script หา link ทั้งหมดที่มีใน page นั้นๆ รึป่าว
(link นี่ หมายถึง path ที่อยู่ใน tag <a ...></a> ของ html อ่ะครับ)
ผมก็คิดๆๆๆ เอ๊ะไม่เคยแฮะ ก็เลยรู้สึกสนใจ เพราะไม่เคยทำ case อย่างงี้มาก่อน
ก็เลยไป search ใน google ดู พบว่ามันมีเป็น library ให้ใช้ด้วยแฮะ แต่โดยส่วนตัวแล้วผมไม่อยากใช้ library อื่นเพิ่ม
แล้วก็เชื่อมั่นในความสามารถของ regular expression อยู่แล้วด้วย เลยเลิกหาแล้วมานั่งมั่วเองลองดู
หลังจากนั่งมั่วอยู่นานก็ได้ code มาดังนี้ครับ

[hide=20]

[code]
use LWP;
use HTTP::Request;

if (@ARGV != 1) {